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[57] ABSTRACT 

Adaptive compressive gain and level dependent spectral 
shaping circuitry for a hearing aid include a microphone to 
produce an input signal and a plurality of channels con- 
nected to a common circuit output Each channel has a preset 
frequency response. Each channel includes a filter with a 
preset frequency response to receive the input signal and to 
produce a filtered signal, a channel amplifier to amplify the 
filtered signal to produce a channel output signal, a threshold 
register to establish a channel threshold level, and a gain 
circuit The gain circuit increases the gain of the channel 
amplifier when the channel output signal falls below the 
channel threshold level and decreases the gain of the channel 
amplifier when the channel output signal rises above the 
channel threshold level. A transducer produces sound in 
response to the signal passed by the common circuit output 

27 Claims, 6 Drawing Sheets 
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ADAPTIVE GAIN AND FILTERING CIRCUIT 
FOR A SOUND REPRODUCTION SYSTEM 

This is a division of application Ser. No. 08/044,246, 
filed Apr. 7, 1993. 5 

GOVERNMENT SUPPORT 

This invention was made with U.S. Government support 
under Veterans Administration Contracts VA KV 674-P-857 1Q 
and VA KV 674-P-1736 and National Aeronautics and Space 
Administration (NASA) Research Grant No. NAG10-0040. 
The U.S. Government has certain rights in this invention. 

NOTICE 

Copyright ©1988 Central Institute for the Deaf. A portion 
of the disclosure of this patent document contains material 
which is subject to copyright protection. The copyright 
owner has no objection to the facsimile reproduction by 
anyone of the patent document or the patent disclosure, as it 20 
appears in the Patent and Trademark Office patent file or 
records, but otherwise reserves all copyright rights whatso- 
ever. 

BACKGROUND OF THE INVENTION 25 

The present invention relates to adaptive compressive 
gain and level dependent spectral shaping circuitry for a 
sound reproduction system and, more particularly, to such 
circuitry for a hearing aid. 

The ability to perceive speech and other sounds over a 
wide dynamic range is important for employment and daily 
activities. When a hearing impairment limits a person’s 
dynamic range of perceptible sound, incoming sound falling 
outside of the person’ s dynamic range should be modified to 35 
fall within the limited dynamic range to be heard. Soft 
sounds fall outside the limited dynamic range of many 
hearing impairments and must be amplified above the per- 
son’s hearing threshold with a hearing aid to be heard. Loud 
sounds fall within the limited dynamic range of many ^ 
hearing impairments and do not require a hearing aid or 
amplification to be heard. If the gain of the hearing aid is set 
high enough to enable perception of soft sounds; however, 
intermediate and loud sounds will be uncomfortably loud. 
Because speech recognition does not increase over that 45 
obtained at more comfortable levels, the hearing-impaired 
person will prefer a lower gain for the hearing aid. However, 
a lower gain reduces the likelihood that soft sounds will be 
amplified above the hearing threshold. Modifying the opera- 
tion of a hearing aid to reproduce the incoming sound at a 50 
reduced dynamic range is referred to herein as compression. 

It has also been found that the hearing-impaired prefer a 
hearing aid which varies the frequency response in addition 
to the gain as sound level increases. The hearing-impaired 
may prefer a first frequency response and a high gain for low 55 
sound levels, a second frequency response and an interme- 
diate gain for intermediate sound levels, and a third fre- 
quency response and a low gain for high sound levels. This 
operation of a hearing aid to vary the frequency response and 
the gain as a function of the level of the incoming sound is 50 
referred to herein as “level dependent spectral shaping.” 

In addition to amplifying and filtering incoming sound 
effectively, a practical ear-level hearing aid design must 
accommodate the power, size and microphone placement 
limitations dictated by current commercial hearing aid 65 
designs. While powerful digital signal processing techniques 
are available, they can require considerable space and power 
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so that most are not suitable for use in an ear-level hearing 
aid. Accordingly, there is a need for a hearing aid that varies 
its gain and frequency response as a function of the level of 
incoming sound, i.e., that provides an adaptive compressive 
gain feature and a level dependent spectral shaping feature 
each of which operates using a modest number of 
computations, and thus allows for the customization of 
variable gain and variable filter parameters according to a 
user’s preferences. 

SUMMARY OF THE INVENTION 

Among the several objects of the present invention may 
be noted the provision of a circuit in which the gain is varied 
in response to the level of an incoming signal; the provision 
of a circuit in which the frequency response is varied in 
response to the level of an incoming signal; the provision of 
a circuit which adaptively compresses an incoming signal 
occurring over a wide dynamic range into a limited dynamic 
range according to a user’s preference; the provision of a 
circuit in which the gain and the frequency response are 
varied in response to the level of an incoming signal; and the 
provision of a circuit which is small in size and which has 
minimal power requirements for use in a hearing aid. 

Generally, in one form the invention provides an adaptive 
compressing and filtering circuit having a plurality of chan- 
nels connected to a common output Each channel includes 
a filter with preset parameters to receive an input signal and 
to produce a filtered signal, a channel amplifier which 
responds to the filtered signal to produce a channel output 
signal, a threshold circuit to establish a channel threshold 
level for the channel output signal, and a gain circuit The 
gain circuit responds to the channel output signal and the 
channel threshold level to increase the gain setting of the 
channel amplifier up to a predetermined limit when the 
channel output signal falls below the channel threshold level 
and to decrease the gain setting of the channel amplifier 
when the channel output signal rises above the channel 
threshold level. The channel output signals are combined to 
produce an adaptively compressed and filtered output signal. 
The circuit is particularly useful when incorporated in a 
hearing aid. The circuit would include a microphone to 
produce the input signal and a transducer to produce sound 
as a function of the adaptively compressed and filtered 
output signal. The circuit could also include a second 
amplifier in each channel which responds to the filtered 
signal to produce a second channel output signal. The 
hearing aid may additionally include a circuit for program- 
ing the gain setting of the second channel amplifier as a 
function of the gain setting of the first channel amplifier. 

Another form of the invention is an adaptive gain ampli- 
fier circuit having an amplifier to receive an input signal in 
the audible frequency range and to produce an output signal. 
The circuit includes a threshold circuit to establish a thresh- 
old level for the output signal. The circuit further includes a 
gain circuit which responds to the output signal and the 
threshold level to increase the gain of the amplifier up to a 
predetermined limit in increments having a magnitude dp 
when the output signal falls below the threshold level and to 
decrease the gain of the amplifier in decrements having a 
magnitude dm when the output signal rises above the 
threshold level. The output signal is compressed as a func- 
tion of the ratio of dm over dp to produce an adaptively 
compressed output signal. The circuit is particularly useful 
in a hearing aid. The circuit may include a microphone to 
produce the input signal and a transducer to produce sound 
as a function of the adaptively compressed output signal. 

Still another form of the invention is a programmable 
compressive gain amplifier circuit having a first amplifier to 
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receive an input signal in the audible frequency range and to 
produce an amplified signal. The circuit includes a threshold 
circuit to establish a threshold level for the amplified signal. 
The circuit further includes a gain circuit which responds to 
the amplified signal and the threshold level to increase the 5 
gain setting of the first amplifier up to a predetermined limit 
when the amplified signal falls below the threshold level and 
to decrease the gain setting of the first amplifier when the 
amplified signal rises above the threshold level. The ampli- 
fied signal is thereby compressed. The circuit also has a 
second amplifier to receive the input signal and to produce 
an output signal. The circuit also has a gain circuit to 
program the gain setting of the second amplifier as a 
function of the gain setting of the first amplifier. The output 
signal is programmably compressed. The circuit is useful in 
a hearing aid. The circuit may include a microphone to 
produce the input signal and a transducer to produce sound 
as a function of the programmably compressed output 
signal. 

Still another form of the invention is an adaptive filtering 
circuit having a plurality of channels connected to a com- 
mon output, each channel including a filter with preset 
parameters to receive an input signal in the audible fre- 
quency range to produce a filtered signal and an amplifier 
which responds to the filtered signal to produce a channel 
output signal. The circuit includes a second filter with preset 
parameters which responds to the input signal to produce a 
characteristic signal. The circuit further includes a detector 
which responds to the characteristic signal to produce a 
control signal. The time constant of the detector is program- 
mable. The circuit also has a log circuit which responds to 
the detector to produce a log value representative of the 
control signal. The circuit also has a memory to store a 
preselected table of log values and gain values. The memory 
responds to the log circuit to select a gain value for each of 
the amplifiers in the channels as a function of the produced 
log value. Each of the amplifiers in the channels responds to 
the memory to separately vary the gain of the respective 
amplifier as a function of the respective selected gain value. 
The channel output signals are combined to produce an 
adaptively filtered output signal. The circuit is useful in a 
hearing aid. The circuit may include a microphone to 
produce the input signal and a transducer to produce sound 
as a function of the adaptively filtered output signal. 

Yet still another form of the invention is an adaptive 
filtering circuit having a filter with variable parameters to 
receive an input signal in the audible frequency range and to 
produce an adaptively filtered signal. The circuit includes an 
amplifier to receive the adaptively filtered signal and to 
produce an adaptively filtered output signal. The circuit 
additionally has a detector to detect a characteristic of the 
input signal and a controller which responds to the detector 
to vary the parameters of the variable filter and to vary the 
gain of the amplifier as functions of the detected character- 
istic. 

Other objects and features will be in part apparent and in 
part pointed out hereinafter. 

BRIEF DESCRIPTION OF THE DRAWINGS 

FIG. 1 is a block diagram of an adaptive compressive gain 
circuit of the present invention. 

FIG. 2 is a block diagram of an adaptive compressive gain 
circuit of the present invention wherein the compression 
ratio is programmable. 65 

FIG. 3 is a graph showing the input/output curves for the 
circuit of FIG. 2 using compression ratios ranging from 0-2. 
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FIG. 4 shows a four channel level dependent spectral 
shaping circuit wherein the gain in each channel is adap- 
tively compressed using the circuit of FIG. 1. 

FIG. 5 shows a four channel level dependent spectral 
shaping circuit wherein the gain in each channel is adap- 
tively compressed with a programmable compression ratio 
using the circuit of FIG. 2. 

FIG. 6 shows a four channel level dependant spectral 
shaping circuit wherein the gain in each channel is adap- 
tively varied with a level detector and a memory. 

FIG. 7 shows a level dependant spectral shaping circuit 
wherein the gain of the amplifier and the parameters of the 
filters are adaptively varied with a level detector and a 
memory. 

FIG. 8 shows a two channel version of the four channel 
circuit shown in FIG. 6. 

FIG. 9 shows the output curves for the control lines 
leading from the memory of FIG. 8 for controlling the 
amplifiers of FIG. 8. 

DETAILED DESCRIPTION OF PREFERRED 
EMBODIMENTS 

An adaptive filtering circuit of the present invention as it 
would be embodied in a hearing aid is generally indicated at 
reference number 10 in FIG. 1. Circuit 10 has an input 12 
which represents any conventional source of an input signal 
such as a microphone, signal processor, or the like. Input 12 
also includes an analog to digital converter (not shown) for 
analog input signals if circuit 10 is implemented with digital 
components. Likewise, input 12 includes a digital to analog 
converter (not shown) for digital input signals if circuit 10 
is implemented with analog components. 

Input 12 is connected by a line 14 to an amplifier 16. The 
gain of amplifier 16 is controlled via a line 18 by an amplifier 
20. Amplifier 20 amplifies the value stored in a gain register 
24 according to a predetermined gain setting stored in a gain 
register 22 to produce an output signal for controlling the 
gain of amplifier 16. The output signal of amplifier 16 is 
connected by a line 28 to a limiter 26. Limiter 26 peak clips 
the output signal from amplifier 16 to provide an adaptively 
clipped and compressed output signal at output 30 in accor- 
dance with the invention, as more fully described below. The 
output 30. as with all of the output terminals identified in the 
remaining Figs, below, may be connected to further signal 
processors or to drive the transducer (not shown) of a 
hearing aid. 

With respect to the remaining components in circuit 10. a 
comparator 32 monitors the output signal from amplifier 16 
via line 28. Comparator 32 compares the level of said output 
with a threshold level stored in a register 34 and outputs a 
comparison signal via a line 36 to a multiplexer 38. When 
the level of the output signal of amplifier 16 exceeds the 
threshold level stored in register 34, comparator 32 outputs 
a high signal via line 36. When the level of the output of 
amplifier 16 falls below the threshold level stored in register 
34, comparator 32 outputs a low signal via line 36. Multi- 
plexer 38 is also connected to a register 40 which stores a 
magnitude dp and to a register 42 which stores a magnitude 
dm. When multiplexer 38 receives a high signal via line 36, 
multiplexer 38 outputs a negative value corresponding to dm 
via a line 44. When multiplexer 38 receives a low signal via 
line 36, multiplexer 38 outputs a positive value correspond- 
ing to dp via line 44. An adder 46 is connected via line 44 
to multiplexer 38 and is connected via a line 54 to gain 
register 24. Adder 46 adds the value output by multiplexer 
38 to the value stored in gain register 24 and outputs the sum 
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via a line 48 to update gain register 24. The circuit compo- 
nents for updating gain register 24 are enabled in response 
to a predetermined portion of a timing sequence produced by 
a clock 50. Gain register 24 is connected by a line 52 to 
amplifier 20. The values stored in registers 22 and 24 thereby 5 
control the gain of amplifier 20. The output signal from 
amplifier 20 is connected to amplifier 16 for increasing the 
gain of amplifier 16 up to a predetermined limit when the 
output level from amplifier 16 falls below the threshold level 
stored in register 34 and for decreasing the gain of amplifier 1Q 
16 when the output level from amplifier 16 rises above the 
threshold level stored in register 34. 

In one preferred embodiment gain register 24 is a 12 bit 
register. The six most significant bits are connected by line 
52 to control the gain of amplifier 16. The six least signifi- 
cant bits are updated by adder 46 via line 48 during the 15 
enabling portion of the timing sequence from clock 50. The 
new values stored in the six least significant bits are passed 
back to adder 46 via line 54. Adder 46 updates the values by 
dm or dp under the control of multiplexer 38. When the six 
least significant bits overflow the first six bits of gain register 20 
24, a cany bit is applied to the seventh bit of gain register 
24, thereby incrementing the gain setting of amplifier 20 by 
one bit. Likewise, when the six least significant bits under- 
flow the first six bits of gain register 24, the gain setting of 
amplifier 20 is decremented one bit. Because the magnitudes 25 
dp and dm are stored in log units, the gain of amplifier 16 
is increased and decreased by a constant percentage. A one 
bit change in the six most significant bits of gain register 24 
corresponds to a gain change in amplifier 16 of approxi- 
mately Va dB. Accordingly, the six most significant bits in 30 
gain register 24 provide a range of 32 decibels over which 
the conditions of adaptive limiting occur. 

The sizes of magnitudes dp and dm are small relative to 
the value corresponding to the six least significant bits in 
gain register 24. Accordingly, there must be a net contribu- 35 
tion of positive values corresponding to dp in order to raise 
the six least significant bits to their full count, thereby 
incrementing the next most significant bit in gain register 24. 
likewise, there must be a net contribution of negative values 
corresponding to dm in order for the six least significant bits 40 
in gain register 24 to decrement the next most significant bit 
in gain register 24. The increments and decrements are 
applied as fractional values to gain register 24 which pro- 
vides an averaging process and reduces the variance of the 
mean of the gain of amplifier 16. Further, since a statistical 45 
average of the percent clipping is the objective, it is not 
necessary to examine each sample. If the signal from input 
12 is in digital form, clock 50 can operate at a frequency well 
below the sampling frequency of the input signal. This 
yields a smaller representative number of samples. For 50 
example, the sampling frequency of the input signal is 
divided by 512 in setting the frequency for clock 50 in FIG. 

1 . 


( 2 ) 

As above, when a sample of the signal from input 12 is in 
the limit set by register 34, the gain setting in gain register 
24 is reduced by dm. When a sample of the signal from input 
12 is not in limit, the gain is increased by dp. Therefore, 
circuit 10 will adjust the gain of amplifier 16 until the 
following condition is met: 

(l-F L )dp=F L 6m (3) 

After adaption, the following relationships are found: 

dp=F L (dp+dm) (4) 

/W^rt(2yin(l-Kim/dp) (5) 

Within the above equations, the ratio R/L represents a 
compression factor established by the ratio dm/dp. The 
percentage of samples that are clipped at ±L is given by: 

% cUpping^Fjr,* 100 (6) 

Table I gives typical values that have been found useful in 
a hearing aid. Column three is the “headroom” in decibels 
between the root mean square signal value of the input signal 
and limiting. 


TABLE I 


dm/dp 

R/L 

R/L in dB 

% clipping 

0 

CO 

oo 

100 

Vlfi 

23.3 

27.4 

94 

V* 

12.0 

21.6 

89 

% 

6.3 

16.0 

80 


3.5 

10.9 

67 

l 

2.04 

6.2 

50 

2 

1.29 

2.2 

33 

4 

.88 

-1.1 

20 

8 

.64 

-3.8 

11 

16 

.50 

-6.0 

6 

32 

.40 

-7.9 

3 


In the above equations, the relationship, R=Ga, applies 
where G represents the gain prior to limiting and o repre- 
sents the root mean square speech signal level of the input 
signal. When the signal level a changes, circuit 10 will adapt 
to a new state such that R/L or Go/ L returns to the com- 
pression factor determined by dp and dm. The initial rate of 
adaption is determined from the following equation: 

(7) 

In equation (7). f c represents the clock rate of clock 50. The 
path followed by the gain (G) is determined by solving the 
following equations recursively; 


In operation, circuit 10 adaptively adjusts the channel 
gain of amplifier 16 so that a constant percentage clipping by 
limiter 26 is achieved over a range of levels of the signal 
from input 12. Assuming the input signal follows a Lapla- 
cian distribution, it is modeled mathematically with the 
equation: 

p(*)=l/(sqrt(2)/?) (i) 

In equation (1), R represents the overall root means square 
signal level of speech. A variable F^ is now defined as the 
fraction of speech samples that fall outside of the limits (L, 
-L). By integrating the Laplacian distribution over the 
intervals and (L.+<x>), the following equation for F L 

is derived: 


G^G+dG (9) 

Within equations (8) and (9), the attack and release times 
for circuit 10 are symmetric only for a compression factor 
(R/L) of 2.04. The attack time corresponds to the reduction 
of gain in response to an increase in signal a. Release time 
corresponds to the increase in gain after the signal level o is 
reduced. For a compression factor setting of 12, the release 
time is much shorter than the attack time, for a compression 
factor setting of 0.64 and 0.50, the attack time is much 
shorter than the release time. These latter values are pref- 
erable for a hearing aid. 

As seen above, the rate of adaption depends on the 
magnitudes of dp and dm which are stored in registers 40 


55 


60 
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and 42. These 6- bit registers have a range from Vi 28 dB to 
6 Vi 28 (dB). Therefore, at a sampling rate of 16 kHz from 
clock 50, the maximum slope of the adaptive gain function 
ranges from 125 dB/sec to 8000 dB/sec. For a step change 
of 32 dB, this corresponds to a typical range of time constant 5 
from 256 milliseconds to four milliseconds respectively. If 
dm is set to zero, the adaptive compression feature is 
disabled. 

FIG. 2 discloses a circuit 60 which has a number of 
common circuit elements with circuit 10 of FIG. 1. Such 10 
common elements have similar functions and have been 
marked with common reference numbers. In addition to 
circuit 10, however, circuit 60 of FIG. 2 provides for a 
programmable compression ratio. Circuit 60 has a gain 
control 66 which is connected to a register 62 by a line 64 15 
and to gain register 24 by a line 68. Register 62 stores a 
compression factor. Gain control 66 takes the value stored in 
gain register 24 to the power of the compression ratio stored 
in register 62 and outputs said power gain value via a line 70 
to an amplifier 72. Amplifier 72 combines the power gain 2 o 
value on line 70 with the gain value stored in a register 74 
to produce an output gain on a line 76. An amplifier 78 
receives the output gain via line 76 for controlling the gain 
of amplifier 78. Amplifier 78 amplifies the signal from input 
12 accordingly. The output signal from amplifier 78 is peak 25 
clipped by a limiter 80 and supplied as an output signal for 
circuit 60 at an output 82 in accordance with the invention. 

To summarize the operation of circuit 60, the input to 
limiter 80 is generated by amplifier 78 whose gain is 
programmably set as a power of the gain setting stored in 30 
gain register 24, while the input to comparator 32 continues 
to be generated as shown in circuit 10 of FIG. 1. Further, one 
of the many known functions other than the power function 
could be used for programmably setting the gain of amplifier 
78. 35 

The improvement in circuit 60 of FIG. 2 over circuit 10 
of FIG. I is seen in FIG. 3 which shows the input/output 
curves for compression ratios ranging from zero through 
two. The curve corresponding to a compression ratio of one 
is the single input/output curve provided by circuit 10 in 40 
FIG. 1. Circuit 60 of FIG. 2, however, is capable of 
producing all of the input/output curves shown in FIG. 3. 

In practice, circuit 10 of FIG. 1 or circuit 60 of FIG. 2 may 
be used in several parallel channels, each channel filtered to 
provide a different frequency response. Narrow band or 45 
broad band filters may be used to provide maximum flex- 
ibility in fitting the hearing aid to the patient’s hearing 
deficiency. Broad band filters are used if the patient prefers 
one hearing aid characteristic at low input signal levels and 
another characteristic at high input signal levels. Broad band 50 
filters can also provide different spectral shaping depending 
on background noise level. The channels are preferably 
constructed in accordance with the filter/limit/filter structure 
disclosed in U.S. Pat. No. 5,111,419 (hereinafter “the ’419 
patent”) and incorporated herein by reference, 55 

FIG. 4 shows a 4-channel filter/limit/filter structure for 
circuit 10 of FIG. 1. While many types of filters can be used 
for the channel filters of FIG. 4 and the other Figs., FIR 
filters are the most desirable. Each of the filters FI, F2. F3 
and F4 in FIG. 4 are symmetric FIR filters which are equal 60 
in length within each channel. This greatly reduces phase 
distortion in the channel output signals, even at band edges. 
The use of symmetric filters further requires only about one 
half as many registers to store the filter co-efficients for a 
channel, thus allowing a simpler circuit implementation and 65 
lower power consumption. Each channel response can be 
programmed to be a band pass filter which is contiguous 
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with adjacent channels. In this mode, filters FI through F4 
have preset filter parameters for selectively passing input 12 
over a predetermined range of audible frequencies while 
substantially attenuating any of input 12 not occurring in the 
predetermined range. Likewise, channel filters FI through 
F4 can be programmed to be wide band to produce over- 
lapping channels. In this mode, filters FI through F4 have 
preset filter parameters for selectively altering input 12 over 
substantially all of the audible frequency range. Various 
combinations of these two cases are also possible. Since the 
filter coefficients are arbitrarily specified, in-band shaping is 
applied to the band-pass filters to achieve smoothly varying 
frequency gain functions across all four channels. An output 
102 of a circuit 100 in FIG. 4 provides an adaptively 
compressed and filtered output signal comprising the sum of 
the filtered signals at outputs 30 in each of the four channels 
identified by filters FI through F4. 

FIG. 5 shows a four channel filter/limit/filter circuit 110 
wherein each channel incorporates circuit 60 of FIG. 2. An 
output 112 in FIG. 5 provides a programmably compressed 
and filtered output signal comprising the sum of the filtered 
signals at outputs 82 in each of the four channels identified 
by filters FI through F4. 

The purpose of the adaptive gain factor in each channel of 
the circuitry of FIGS. 4 and 5 is to maintain a specified 
constant level of envelope compression over a range of 
inputs. By using adaptive compressive gain, the input/output 
function for each channel is programmed to include a linear 
range for which the signal envelope is unchanged, a higher 
input range over which the signal envelope is compressed by 
a specified amount, and the highest input range over which 
envelope compression increases as the input level increases. 
This adaptive compressive gain feature adds an important 
degree of control over mapping a widely dynamic input 
signal into the reduced auditory range of the impaired ear. 

The design of adaptive compressive gain circuitry for a 
hearing aid presents a number of considerations, such as the 
wide dynamic range, noise pattern and bandwidth found in 
naturally occurring sounds. Input sounds present at the 
microphone of a hearing aid vary from quiet sounds (around 
30 dB SPL) to those of a quiet office area (around 50 dB 
SPL) to much more intense transient sounds that may reach 
100 dB SPL or more. Sound levels for speech vary from a 
casual vocal effort of a talker at three feet distance (55 dB 
SPL) to that of a talker’s own voice which is much closer to 
the microphone (80 dB SPL). Therefore, long term averages 
of speech levels present at the microphone vary by 25 dB or 
more depending on the talker, the distance to the talker, the 
orientation of the talker and other factors. Speech is also 
dynamic and varies over the short term. Phoneme intensities 
vary from those of vowels, which are the loudest sounds, to 
unvoiced fricatives, which are 12 dB or so less intense, to 
stops, which are another 18 dB or so less intense. This adds 
an additional 30 dB of dynamic range required for speaking. 
Including both long-term and short-term variation, the over- 
all dynamic range required for speech is about 55 dB. If a 
talker whispers or is at a distance much greater than three 
feet, then the dynamic range will be even greater. 

Electronic circuit noise and processing noise limit the 
quietest sounds that can be processed. A conventional hear- 
ing aid microphone has an equivalent input noise figure of 
25 dB SPL, which is close to the estimated 20 dB noise 
figure of a normal ear. If this noise figure is used as a lower 
bound on the input dynamic range and 120 dB SPL is used 
as an upper bound, the input dynamic range of good hearing 
aid system is about 100 dB. Because the microphone will 
begin to saturate at 90 to 100 dB SPL. a lesser dynamic 
range of 75 dB is workable. 
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Signal bandwidth is another design consideration. 
Although it is possible to communicate over a system with 
a bandwidth of 3 kHz or less and it has been determined that 
3 kHz carries most of the speech information, hearing aids 
with greater bandwidth result in better articulation scores. 
Skinner. M. W. and Miller, J. D., Amplification Bandwidth 
and Intelligibility of Speech in Quiet and Noise for Listeners 
with Sensorineural Hearing Loss , 22:253-79 Audiology 
(1983). Accordingly, the embodiment disclosed in FIG. 1 
has a 6 kHz upper frequency cut-off. 

The filter structure is another design consideration. The 
filters must achieve a high degree of versatility in program- 
ming bandwidth and spectral shaping to accommodate a 
wide range of hearing impairments. Further, it is desirable to 
use shorter filters to reduce circuit complexity and power 
consumption. It is also desirable to be able to increase filter 
gain for frequencies of reduced hearing sensitivity in order 
to improve signal audibility. However, studies have shown 
that a balance must be maintained between gain at low 
frequencies and gain at high frequencies. It is recommended 
that the gain difference across frequency should be no 
greater than 30 dB. Skinner, M, W., Hearing Aid Evaluation , 
Prentice Hall (1988). Further, psychometric functions often 
used to calculate a “prescriptive* 1 filter characteristic are 
generally smooth, slowly changing functions of frequency 
that do not require a high degree of frequency resolution to 
fit. 

Within the above considerations, it is preferable to use 
FIR filters with transition bands of 1000 Hz and out of band 
rejection of 40 dB. The required filter length is determined 
from the equation: 

L=<(-20 log , 0 (a)-7 .95y( 14.36 TB/f ^\- 1 (10) 

In equation (10), L represents the number of filter taps, o 
represents the maximum error in achieving a target filter 
characteristic, -20 log 10 (o) represents the out of band rejec- 
tion in decimals. TB represents the transition band, and f s is 
the sampling rate. See Kaiser, Nonrecursive Filter Design 
Using the I 0 ~SINH Window Function ; Pros IEEE Int. 
Symposium on Circuits and Systems (1974). For an out of 
band rejection figure of 35 dB with a transition band of 1000 
Hz and a sampling frequency of 16 kHz, the filter must be 
approximately 31 taps long. If a lower out of band rejection 
of 30 dB is acceptable, the filter length is reduced to 25 taps. 
This range of filter lengths is consistent with the modest 
filter structure and low power limitations of a hearing aid. 

All of the circuits shown in FIGS. 1 through 9 use log 
encoded data. See the *419 patent. Log encoding is similar 
to u-law and A-law encoding used in Codecs and has the 
same advantages of extending the dynamic range, thereby 
making it possible to reduce the noise floor of the system as 
compared to linear encoding. Log encoding offers the addi- 
tional advantage that arithmetic operations are performed 
directly on the log encoded data. The log encoded data are 
represented in the hearing aid as a sign and magnitude as 
follows: 

x=sgn(y) log (lyly log (B) (11) 

In equation (11), B represents the log base, which is positive 
and close to but less than unity, x represents the log value 
and y represents the equivalent linear value, A reciprocal 
relation for y as a function of x follows: 

y=sgn{x>EP (12) 

If x is represented as sign and an 8-bit magnitude and the log 
base is 0.941, the range of y is ±1 to ±1.8xl0” 7 . This 
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corresponds to a dynamic range of 134 dB. The general 
expression for dynamic range as a function of the log base 
B and the number of bits used to represent the log magnitude 
value N follows: 

dynamic range (dB)=20 log 2 ©(fK 2 * -1 )) (13) 

An advantage of log encoding over u-law encoding is that 
arithmetic operations are performed directly on the encoded 
signal without conversion to another form. The basic FIR 
10 filter equation, y(n)=Za r x(n-i), is implemented recursively 
as a succession of add and table lookup operations in the log 
domain. Multiplication is accomplished by adding the mag- 
nitude of the operands and determining the sign of the result. 
The sign of the result is a simple exclusive-or operation on 
is the sign bits of the operands. Addition (and subtraction) are 
accomplished in the log domain by operations of 
subtraction, table lookup, and addition. Therefore, the 
sequence of operations required to form the partial sum of 
products of the FIR filter in the log domain are addition, 
20 subtraction, table lookup, and addition. 

Addition and subtraction in the log domain are imple- 
mented by using a table lookup approach with a sparsely 
populated set of tables T + and T_ stored in a memory (not 
shown). Adding two values, x and y, is accomplished by 
25 taking the ratio of the smaller magnitude to the larger and 
adding the value from the log table T+ to the smaller. 
Subtraction is similar and uses the log table T_. Since x and 
y are in log units, the ratio, ly/x! (or Ix/yl), which is used to 
access die table value, is obtained by subtracting lx} from lyl 
30 (or vice-versa). The choice of which of the tables, T+ or T_, 
to use is determined by an exclusive-or operation on the sign 
bits of x and y. Whether the table value is added to x or to 
y is determined by subtracting txl from lyl and testing the 
sign bit of the result 

35 Arithmetic roundoff errors in using log values for multi- 
plication are not significant With an 8-bit representation, the 
log magnitude values are restricted to the range 0 to 255. 
Zero corresponds to the largest possible signal value and 255 
to the smallest possible signal value. Log values less than 
40 zero cannot occur. Therefore, overflow can only occur for 
the smallest signal values. Product log values greater than 
255 are truncated to 255. This corresponds to a smallest 
signal value (255 LIPs) that is 134 dB smaller than the 
maximum signal value. Therefore, if the system is scaled by 
45 setting the amplifier gains so that 0 LU corresponds to 130 
dB SPL, the truncation errors of multiplication (255 LU) 
correspond to -134 dB relative to the maximum possible 
signal value (0 LU)- In absolute terras, this provides a -4 dB 
SPL or -43 dB SPL spectrum level, which is well below the 
50 normal hearing threshold. 

Roundoff errors of addition and subtraction are much 
more significant. For example, adding two numbers of equal 
magnitude together results in a table lookup error of 2.4%. 
Conversely, adding two values that differ by three orders of 
55 magnitude results in an error of 0. 1%. The two tables, T + and 
T_, are sparsely populated. For a log base of 0.941 and table 
values represented as an 8-bit magnitude, each table contains 
57 nonzero values. If it is assumed that the errors are 
uniformly distributed (that each table value is used equally 
60 often on the average), then the overall average error asso- 
ciated with table roundoff is 1.01% for T+ and 1.02% for T_. 

Table errors are reduced by using a log base closer to 
unity and a greater number of bits to represent log magni- 
tude. However, the size of the table grows and quickly 
65 becomes impractical to implement. A compromise solution 
for reducing error is to increase the precision of the table 
entries without increasing the table size. The number of 
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nonzero entries increases somewhat. Therefore, in imple- 
menting the table lookup in the digital processor, two 
additional bits of precision are added to the table values. 
This is equivalent to using a temporary log base which is the 
fourth root of 0.941 (0.985) for calculating the FIR filter 
summation. The change in log base increases the number of 
nonzero entries in each of the tables by 22, but reduces the 
average error by a factor of four. This increases the output 
SNR of a given filter by 12 dB. TheT + andT_ tables are still 
sparsely populated and implemented efficiently in VLSI 
form. 

In calculating the FIR equation, the table lookup opera- 
tion is applied recursively N-l times, where N is the order 
of the filter. Therefore, the total error that results is greater 
than the average table roundoff error and a function of filter 
order. If it is assumed that the errors are uniformly distrib- 
uted and that the input signal is white, the expression for 
signal to roundoff noise ratio follows: 

€/a^c l ^2c 2 2 + . . - HN-l)c„2)}(c l 2 +c 2 2 + . . . 4*„ 2 ) (14) 

In equation (14) t 2 represents the noise variance at the 
output of the filter a 2 represents the signal variance at the 
output of the filter, and e represents the average percent table 
error. Accordingly, the filter noise is dependent on the table 
lookup error, the magnitude of the filter coefficients, and the 
order of summation. The coefficient used first introduces an 
error that is multiplied by N-l. The coefficient used second 
introduces an error that is multiplied by N-2 and so on. 
Since the error is proportional to coefficient magnitude and 
order of summation, it is possible to minimize the overall 
error by ordering the smallest coefficients earliest in the 
calculation. Since the end tap values for symmetric filters are 
generally smaller than the center tap value, the error was 
further reduced by calculating partial sums using coefficients 
from the outside toward the inside. 

In FIGS. 4 and 5, FIR filters FI through F4 represent 
channel filters which are divided into two cascaded parts. 
Limiters 26 and 80 are implemented as part of the log 
multiply operation. G x is a gain factor that, in the log 
domain, is subtracted from the samples at the output of the 
first FIR filter. If the sum of the magnitudes is less than zero 
(maximum signal value), it is clipped to zero. G 2 represents 
an attenuation factor that is added (in the log domain) to the 
clipped samples. G 2 is used to set the maximum output level 
of the channel. 

Log quantizing noise is a constant percentage of signal 
level except for low input levels that are near the smallest 
quantizing steps of the encoder. Assuming a Laplacian 
signal distribution, the signal to quantizing noise ratio is 
given by the following equation: 

SM?(dB>=10 log lo (12)-20 log 10 (lln(i?)l) ( 15) 

For a log base of 0.941, the SNR is 35 dB. The quantizing 
noise is white and, since equation (15) represents the total 
noise energy over a bandwidth of 8 kHz, the spectrum level 
is 39 dB less or 74 dB smaller than the signal level. The ear 
inherently masks the quantizing noise at this spectrum level. 
Schroeder, et al.. Optimizing Digital Speech Coders by 
Exploiting Masking Properties of the Human Ear , Vol. 66(6) 
J. Acous. Soc. Am. pp. 1647-52 (December 1979). Thus, log 
encoding is ideally suited for auditory signal processing. It 
provides a wide dynamic range that encompasses the range 
of levels of naturally occurring signals, provides sufficient 
SNR that is consistent with the limitation of the ear to 
resolve small signals in the presence of large signals, and 
provides a significant savings with regard to hardware. 
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The goal of the fitting system is to program the digital 
hearing aid to achieve a target real-ear gain. The real-ear 
gain is the difference between the real-ear-aided-response 
(REAR) and the real-ear-unaided-response (RE UR) as mea- 
5 sured with and without the hearing aid on the patient. It is 
assumed that the target gain is specified by the audiologist 
or calculated from one of a variety of prescriptive formulae 
chosen by the audiologist that is based on audiometric 
measures. There is not a general consensus about which 
10 prescription is best. However, prescriptive formulae are 
generally quite simple and easy to implement on a small host 
computer. Various prescriptive fitting methods are discussed 
in Chapter 6 of Skinner, M. W„ Hearing Aid Evaluation , 
Prentice Hall (1988). 

15 Assuming that a target real-ear gain has been specified, 
the following strategy is used to automatically fit the four 
channel digital hearing aid where each channel is pro- 
grammed as a band pass filter which is contiguous with 
adjacent channels. The real-ear measurement system dis- 
20 closed in U.S. Pat. No. 4.548,082 (hereinafter “the ’082 
patent”) and incorporated herein by reference is used. First, 
the patient’s REUR is measured to determine the patient’s 
normal, unoccluded ear canal resonance. Then the hearing 
aid is placed on the patient. Second, the receiver and 
25 earmold are calibrated. This is done by setting G2 of each 
channel to maximum attenuation (-134 dB) and turning on 
the noise generator of the adaptive feedback equalization 
circuit shown in the ’082 patent. This drives the output of the 
hearing aid with a flat- spectrum-level, pseudorandom noise 
30 sequence. The noise in the ear canal is then deconvolved 
with the pseudorandom sequence to obtain a measure of the 
output transfer characteristic (H r ) of the hearing aid. Third, 
the microphone is calibrated. This is done by setting the 
channels to a fiat nominal gain of 20 dB. The cross- 
35 correlation of the sound in the ear canal with the reference 
sound then represents the overall transfer characteristic of 
the hearing aid and includes the occlusion of sound by the 
earmold. The microphone calibration (Hm) is computed by 
subtracting H r from this measurement. Last, the channel 
40 gain functions are specified and filter coefficients are com- 
puted using a window design method. See Rabiner and 
Schafer, Digital Processing of Speech Signals, Prentice Hall 
(1978). The coefficients are then downloaded in bit-serial 
order to the coefficient registers of the processor. The 
45 coefficient registers are connected together as a single serial 
shift register for the purpose of downloading and uploading 
values. 

The channel gains are derived as follows. The acoustic 
gain for each channel of the hearing aid is given by: 

50 

Gam=H m +ff r +H n +G k „+G 2 ri (16) 

The filter shape for each channel is determined by setting the 
Gain in equation (16) to the desired real-ear gain plus the 
55 open-ear resonance. Since G 1/t and G 2 „ are gain constants 
for the channel and independent of frequency, they do not 
enter into the calculation at this point. The normalized filter 
characteristics is determined from the following equation. 

Hn^O.5 (Desired Real-ear gain+open ear cal -H m -H r +G n ) ( 17) 

60 

H m and H r represent the microphone and receiver calibration 
measures, respectively, that were determined for the patient 
with the real ear measurement system and G n represents a 
normalization gain factor for the filter that is included in the 
65 computation of G lrt and G 2/! . H m and H r include the trans- 
ducer transfer characteristics in addition to the frequency 
response of the amplifier and any signal conditioning filters. 
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Once H„ is determined, the maximum output of each chan- 
nels which is limited by L, are represented by G 2n as 
follows: 

G 2n =MPO n -L-w Z (H n +H r yG n (18) 5 

In equation (18), the “avg” operator gives the average of 
filter gain and receiver sensitivity at filter design frequencies 
within the channel. L represents a fixed level for all channels 
such that signals falling outside the range ±L are peak- 
clipped at ±L. G„ represents the filter normalization gain, 10 
and MPO n represents the target maximum power output. 
Overall gain is then established by setting G ln as follows: 

O ln =2G n -G 2n (19) 

15 

G n represents the gain normalization factor of the filters that 
were designed to provide the desired linear gain for the 
channel. 

By using the above approach, target gains typically are 
realized to within 3 dB over a frequency range of from 100 2 o 
Hz to 6000 Hz. The error between the step-wise approxi- 
mation to the MPO function and the target MPO function is 
also small and is minimized by choosing appropriate cross- 
over frequencies for the four channels. 

Because the channel filters are arbitrarily specified, an 2 s 
alternative fitting strategy is to prescribe different frequency- 
gain shapes for signals of different levels. By choosing 
appropriate limit levels in each channel, a transition from the 
characteristics of one channel to the characteristics of the 
next channel will occur automatically as a function of signal 30 
level. For example, a transparent or low-gain function is 
used for high-level signals and a higher-gain function is used 
for low-level signals. The adaptive gain feature in each 
channel provides a means for controlling the transition from 
one channel characteristic to the next. Because of recruit- 35 
ment and the way the impaired ear works, the gain functions 
are generally ordered from highest gain for soft sounds to the 
lowest gain for loud sounds. With respect to circuit 100 of 
FIG. 4, this is accomplished by setting G1 in gain register 22 
very high for the channel with the highest gain for the soft 40 
sounds. The settings for G1 in gain registers 22 of the next 
succeeding channels are sequentially decreased, with the G1 
setting being unity in the last channel which channel has the 
lowest gain for loud sounds. A similar strategy is used for 
circuit 110 of FIG. 5, except that G1 must be set in both gain 45 
registers 22 and 74. In this way, the channel gain settings in 
circuits 100 and 110 of FIGS. 4 and 5 are sequentially 
modified from first to last as a function of the level of input 
12 . 

The fitting method is similar to that described above to 50 
the four-channel fitting strategy. Real-ear measurements are 
used to calibrate the ear, receivers and microphone. 
However, the filters are designed differently. One of the 
channels is set to the lowest gain function and highest ACG 
threshold. Another channel is set to a higher-gain function, 55 
which adds to the lower-gain function and dominates the 
spectral shaping at signal levels below a lower ACG thresh- 
old setting for that channel. The remaining two channels are 
set to provide further gain contributions at successively 
lower signal levels. Since the channel filters are symmetric ^ 
and equal length, the gains will add in the linear sense. Two 
channels set to the same gain function will provide 6 dB 
more gain than either channel alone. Therefore, the channels 
filters are designed as follows: 

Hy =¥. a D, (20) 65 

HfM log l0 (10“-10“) (21) 
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H 3 =¥z log 10 (lO^-lO^-lO* 1 ) (22) 

H 4 =Vi log 10 (lO^-lO^-lO^-lO 01 ) (23) 

where: D 1 <D 2 <D 3 <D 4 . D n represents the filter design target 
in decibels that gives the desired insertion gain for the 
hearing aid and is derived from the desired gains specified 
by the audiologist and corrected for ear canal resonance and 
receiver and microphone calibrations as described previ- 
ously for the four-channel fit. The factor, l A in the above 
expressions takes into account that each channel has two 
filters in cascade. 

The processor described above has been implemented in 
custom VLSI form. When operated at 5 volts and at a 
16-kHz sampling rate, it consumes 4.6 mA. When operated 
at 3 volts and at the same sampling rate, it consumes 2.8 mA. 
When the circuit is implemented in a low -voltage form, it is 
expected to consume less than 1 mA when operated from a 
hearing aid battery. The processor has been incorporated into 
a bench-top prototype version of the digital hearing aid. 
Results of fitting hearing-impaired subjects with this system 
suggest that prescriptive frequency gain functions are 
achieved within 3 dB accuracy at the same time that the 
desired MPO frequency function is achieved within 5 dB or 
so of accuracy. 

For those applications that do not afford the computa- 
tional resources required to implement the circuitry of FIGS. 
1 through 5, the simplified circuitry of FIGS. 6 through 9 is 
used. In FIG. 6, a circuit 120 includes an input 12 which 
represents any conventional source of an input signal such as 
a microphone, signal processor, or the like. Input 12 also 
includes an analog to digital converter (not shown) for 
analog input signals if circuit 120 is implemented with 
digital components. likewise, input 12 includes a digital to 
analog converter (not shown) for digital input signals if 
circuit 120 is implemented with analog components. 

Input 12 is connected to a group of filters FI through F4 
and a filter SI over a line 122. Filters FI through F4 provide 
separate channels with filter parameters preset as described 
above for the multichannel circuits of FIGS. 4 and 5. Each 
of filters FI, F2, F3 and F4 outputs an adaptively filtered 
signal via a line 124, 126, 128 and 130 which is amplified 
by a respective amplifier 132, 134, 136 and 138. Amplifiers 
132 through 138 each provide a channel output signal which 
is combined by a line 140 to provide an adaptively filtered 
signal at an output 142 of circuit 120. 

Filter SI has parameters which are set to extract relevant 
signal characteristics present in the input signal. The output 
of filter SI is received by an envelope detector 144 which 
detects said characteristics. Detector 144 preferably has a 
programmable time constant for varying the relevant period 
of detection. When detector 144 is implemented in analog 
form, it includes a full wave rectifier and a resistor/capacitor 
circuit (not shown). The resistor, the capacitor, or both, are 
variable for programming the time constant of detector 144. 
When detector 144 is implemented in digital form, it 
includes an exponentially shaped filter with a programmable 
time constant. In either event, the “on” time constant is 
shorter than the relatively long “off” time constant to prevent 
excessively loud sounds from existing in the output signal 
to extended periods. 

The output of detector 144 is a control signal which is 
transformed to log encoded data by a log transformer 146 
using standard techniques and as more fully described 
above. The log encoded data represents the extracted signal 
characteristics present in the signal at input 12. A memory 
148 stores a table of signal characteristic values and related 
amplifier gain values in log form. Memory 148 receives the 
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log encoded data from log transformer 146 and, in response 
thereto, recalls a gain value for each of amplifiers 132, 134, 
136 and 138 as a function of the log value produced by log 
transformer 146, Memory 148 outputs the gain values via a 
set of lines 150, 152,154 and 156 to amplifiers 132, 134, 136 
and 138 for setting the gains of the amplifiers as a function 
of the gain values. Arbitrary overall gain control functions 
and blending of signals from each signal processing channel 
are implemented by changing the entries in memory 148. 

In use, circuit 120 of FTG. 6 may include a greater or 
lesser number of filtered channels than the four shown in 
FIG. 6. Further, circuit 120 may include additional filters, 
detectors and log transformers corresponding to filter SI, 
detector 144 and log transformer 146 for providing addi- 
tional input signal characteristics to memory 148o Still 
further, any or all of the filtered signals in lines 124, 126, 128 
or 130 could be used by a detectoif s), such as detector 144, 
for detecting an input signal characteristic for use by 
memory 148. 

FTG. 7 includes input 12 for supplying an input signal to 
a circuit 160. Input 12 is connected to a variable filter 162 
and to a filter SI via a line 164. Variable filter 162 provides 
an adaptively filtered signal which is amplified by an ampli- 
fier 166. A limiter 168 peak clips the adaptively filtered 
output signal of amplifier 166 to produce a limited output 
signal which is filtered by a variable filter 170. The adap- 
tively filtered and clipped output signal of variable filter 170 
is provided at output 171 of circuit 160. 

Filter SI, a detector 144 and a log transformer 146 in FIG. 
7 perform similar functions to the like numbered compo- 
nents found in FIG. 6. A memory 162 stores a table of signal 
characteristic values, related filter parameters, and related 
amplifier gain values in log form. Memory 162 responds to 
the output from log transformer 146 by recalling filter 
parameters and an amplifier gain value as functions of the 
log value produced by log transformer 146. Memory 162 
outputs the recalled filter parameters via a line 172 and the 
recalled gain value via a line 174. Filters 162 and 170 
receive said filter parameters via line 172 for setting the 
parameters of filters 162 and 170. Amplifier 166 receives 
said gain value via line 174 for setting the gain of amplifier 
166. The filter coefficients are stored in memory 162 in 
sequential order of input signal level to control the selection 
of filter coefficients as a function of input level. Filters 162 
and 170 are preferably FIR filters of the same construction 
and length and are set to the same parameters by memory 
162. In operation, the circuit 160 is also used by taking the 
output signal from the output of amplifier 166 to achieve 
desirable results. Limiter 168 and variable filter 170 are 
shown, however, to illustrate the fUter/limit/filter structure 
disclosed in the ’419 patent in combination with the pair of 
variable filters 162 and 170. 

With a suitable choice of filter coefficients, a variety of 
level dependent filtering is achieved. When memory 162 is 
a random- access memory, the filter coefficients are tailored 
to the patient's hearing impairment and stored in the 
memory from a host computer during the fitting session. The 
use of the host computer is more fully explained in the ’082 
patent. 

A two channel version of circuit 120 in FIG. 6 is shown 
in FIG. 8 as circuit 180. Like components of the circuits in 
FIGS. 6 and 8 are identified with the same reference 
numerals. A host computer (such as the host computer 
disclosed in the ’082 patent) is used for calculating the FI 
and F2 filter coefficients for various spectral shaping, for 
calculating entries in memory 148 for various gain functions 
and blending functions, and for down-loading the values to 
the hearing aid. 
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The gain function for each channel is shown in FIG. 9. A 
segment “a” of a curve G1 provides a ‘Voice switch” 
characteristic at low signal levels. A segment “b” provides a 
linear gain characteristic with a spectral characteristic deter- 
5 mined by filter FI in FIG. 8. A segment “c” and “d” provide 
a transition between the characteristics of filters FI and F2. 
A segment “e” represents a linear gain characteristic with a 
spectral characteristic determined by filter F2. Lastly, seg- 
ment “f* corresponds to a region over which the level of 
output 142 is constant and independent of the level of input 
10 12 . 

The G1 and G2 functions are stored in a random access 
memory such as memory 148 in FIG. 8. The data stored in 
memory 148 is based on the specific hearing impairment of 
the patient The data is derived from an appropriate algo- 
15 rithm in the host computer and down-loaded to the hearing 
aid model during the fitting session. The coefficients for 
filters FI and F2 are derived from the patients residual 
hearing characteristic as follows: Filter F2, which deter- 
mines the spectral shaping for loud sounds, is designed to 
20 match the patients UCL function. Filter FI, which deter- 
mines the spectral shaping for softer sounds, is designed to 
match the patients MCL or threshold functions. One of a 
number of suitable filter design methods are used to compute 
the filter coefficient values that correspond to the desired 
25 spectral characteristic. 

A Kaiser window filter design method is preferable for 
this application. Once the desired spectral shape is 
established, the filter coefficients are determined from the 
following equation: 

30 Cn=IA j rfcos(2)»A«))H'„ (24) 

In equation (24), C„ represents the n’th filter coefficient, A k 
represents samples of the desired spectral shape at frequen- 
cies f*, f s represents the sampling frequency and W n repre- 
35 sents samples of the Kaiser Window. The spectral sample 
points. A*, are spaced at frequencies, f*, which are separated 
by the 6 dB bandwidth of the window, W n , so that a 
relatively smooth filter characteristic results that passes 
through each of the sample values. The frequency resolution 
40 and maximum slope of the frequency response of the 
resulting filter is determined by (he number of coefficients or 
length of the filter. In the implementation shown in FIG. 8, 
filters FI and F2 have a length of 30 taps which, at a 
sampling rate of 12.5 kHz, gives a frequency resolution of 
45 about 700 Hz and a maximum spectral slope of 0.04 dB/Hz. 

Circuit 180 of FIG. 8 simplifies the fitting process. 
Through a suitable interactive display on a host computer 
(not shown), each spectral sample value A k is independently 
selected. While wearing a hearing aid which includes circuit 
50 180 in a sound field, such as speech weighted noise at a 
given level, the patient adjusts each sample value A* to a 
preferred setting for listening. The patient also adjusts filter 
F2 to a preferred shape that is comfortable only for loud 
sounds. 

55 Appendix A contains a program written for a Macintosh 
host computer for setting channel gain and limit values in a 
four channel contiguous band hearing aid. The filter coef- 
ficients for the bands are read from a file stored on the disk 
in the Macintosh computer. An interactive graphics display 
is used to adjust the filter and gain values. 

60 In view of the above, it will be seen that the several 
objects of the invention are achieved and other advantageous 
results attained. 

As various changes could be made in the above construc- 
tions without departing from the scope of the invention, it is 
65 intended that all matter contained in the above description or 
shown in the accompanying drawings shall be interpreted as 
illustrative and not in a limiting sense. 
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Program WDHA 


Wearable Digital Hearing Hid Control Program IK 1.0 

Central Institute For The Deaf 
818 South Euclid Rue. 

St. Louis Mo. 63110 
Phone: 314-652-3200 

Supported in part by: 

The Rehabilitation Research find Deuelopment Seruice 
Dept, of Medicine and Surgery: Ueterans Administration 



General Overview 

A program entitled "WDHA” has been written for the Macintosh 
personal computer. When a wearable digital hearing aid is attached 
to the Macintosh’s SCSI bus peripheral interface, the user of the 
WDHA program can alter the operation of the hearing aid via an easy 
to use Macintosh style user interface. 

Using the WDHA Program 

Starting The Program 

Upon starting the program, the Macintosh interrogates the 
hearing aid to determine which program it is running. If the hearing 
aid responds appropriately, a menu containing the options which 
apply to that particular program appears in the menu bar. If no 
response is received from the hearing aid, the menu entitled "WDHA 
Disconnected" appears in the menu bar, as follows: 


r * File IDDHR Disconnected 



Should this menu appear, this indicates that there is some 
problem with the hearing aid. The source of this problem could be 
that the hearing aid is truly disconnected, that it is simply turned off, 
or that the hearing aid battery is dead. Upon correcting the problem. 


35 
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choose the '’New WDHA Program" menu entry to activate the proper 
menu for the hearing aid. 

The Aid Parameters Window 

The four channel hearing aid programs have the titles Aid 12 
through Aidl4. Choosing the "Aid Parameters" menu entry will 
cause the aid parameters window to be displayed, as follows: 


- Rid Parameters- 


140 


dB 



Charm*! 

Cain 

Limit SPL 

1 

26 

105 

2 

30 

106 

3 

32 

110 

4 

40 

115 


12 3 4 
Channel 


IS Hearing Rid On 

H Input attenuation 

□ Output Attenuation 
it*.5r 

HC1 ■ 0 dB (R*al - Zvislocki) 
HC2 * 3 dB (Real - Zvislockt) 
HC3 » 0 dB (Real - Zvislocki) 
HC4 » 4 dB (Real - Zviilocki) 


The bar graph and chart depict the current settings of the gains 
and limits for each channel of the hearing aid. A gain or limit setting 
can be changed by dragging the appropriate bar up or down with the 
mouse. The selected bar will blink when it is activated, and can be 
moved until the mouse is released, at which point the hearing aid is 
updated with the new values. 

The control buttons indicate whether the hearing aid is on or 
off (i.e. whether the hearing aid program is running), and whether 
the input or output attenuators are switched on or off. Any of these 
settings can be changed simply by clicking on the appropriate 
buttons. 

Ear Module Calibration 

The File menu has an option called "Calibrate Ear Module” 
which should be used whenever the program is started or an ear 
module is inserted (or re-inserted) in a patient’s ear. Proper use of 
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this option insures that the gains actually generated by the hearing 
aid are as close to the gains indicated by the program as possible. 

The lower right hand corner of the Aid Parameters window 
displays the results of the most recent ear module calibration, 
including the name of the calibration file and the four He values, 
where He is the difference between the real ear pressure measured 
in the ear canal and the standard pressure measured on a Zwislocki 
at the center frequency of each channel. After choosing this option 
the user must open the file containing the ear module coefficients, by 
double clicking on the file’s name, via a standard Macintosh dialog 
box: 


Q Ear Module Calibrations) 


□ ite.3! 

□ ite.3r 

□ ite.4l 
D ite.4r 

□ ite.51 

a 

i 

■ 

® Ear Module ... 



Q ite.Sr - - " | 

« 


0 lte.6i 

ill 

[ Open kJ 

D ite.6r 


□ ite.7l 

a 

[ Cancel ] 


The program will then play a series of four tones in the 
patient's ear, using the power measurement to determine the real 
pressure in the ear canal. 

The file containing the ear module coefficients should be 
created with a text editor and saved as a text-only file. The file 
contains all the H values for a given ear module, seperated by tabs, 
spaces, or carriage returns. It should begin with the four He values, 
followed by the Hr values, then He, and then Hp. The values entered 
for the He values can be arbitrary, since the program calculates them 
and stores them into the file. An ear module file as you would enter 
it might look as follows: 

-100 -85 -90 -84 121 116 127 120 
0 
0 
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0 

0 

-124 -121 - 1 34 -143 

Here the first row contains both the four He values and the 
four Hr values. Following this are four zeros (since the He values are 
unknown). The sixth row contains the Hp values. Note that values 
are arbitrarily seperated by tabs, spaces, or carriage returns. 

After doing an ear module calibration with the program, the 
new He values are displayed in the Aid Settings window, and also 
written to the same file, with the data re-formatted into a seperate 
row for each H value, as follows: 

-100 -85 -90 -84 

121 116 127 120 

-5 -4 -10 0 

-124 -121 -134 -143 

The Tone Parameters Window 

The four channel programs also have the ability to play pure 
tones for audiometric purposes. The Tone Parameters window is 
available to activate these functions. Choosing the "Tone Parameters” 
menu entry will cause the Tone Parameters window to be displayed, 
as follows: 


[ □ - - i ’ Tone Parameters- - « — 

Tone burst count? 

3 

Q Hearing Hid On 

Rise time sample count? 

309 

□ Input Rttenuation 

Signal on sample count? 

2455 

□ Output Attenuation 
0 Field Mike 

Fall time sample count? 

309 

Signal off sample count? 

3069 

® Probe Mike 

Frequency? 

2000 

Atten re max out (dB)? 

20 

(start) 

Power = -12.616046 


.. / 
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The text boxes specify the number of tone bursts to generate 
and the envelope of the tone bursts generated, as follows: 

rise fell 



All times are specified in number of sample periods, and 
cannot exceed 32767 sample periods. The test is initiated by clicking 
on the start button. The control buttons act just as in the aid 
parameters window. 


. Loading Filter Taps 

The programs titled Aidl3 and Aid 1 4 have the capability to 
download filter tap coefficients to the hearing aid. The coefficients 
are read into memory from a text file which the user creates with 
any standard text editor. The coefficients in these files are signed 
integers such as ”797” or "-174" (optionally be followed by a divisor, 
such as in ”-12028/2") and must be seperated by spaces, tabs, or 
carriage returns. 

The Aid 13 program has 32 taps per filter, and the Aid 14 
program has 31 taps per filter, but since the filters are symmetric 
about the center tap you only provide half this number of taps, or 16 
taps per filter. Thus the files contain 64 coefficients for the 4 
channels. For example, the file titled TapsFour has the following 
format: 

-535/4 -431/4 -254/4 0 333/4 743/4 1220/4 1750/4 

2315/4 2892/4 3545/4 3977/4 4432/4 4797/4 5052/4 5183/4 

-34/2 -231/2 -223/2 0 292/2 398/2 77/2 -745/2 

-1873/2 -2869/2 -3212/2 -2535/2 -831/2 1483/2 3683/2 5021/2 

-83/2 502/2 859/2 0 -1128/2 -866/2 189/2 128/2 

-442/2 890/2 3076/2 1605/2 -3814/2 -6280/2 -922/2 6543/2 
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528/2 -167/2 -446/2 0 585/2 288/2 -1203/2 242/2 

442/2 1525/2 -2946/2 797/2 -174/2 6280/2 -12028/2 6482/2 

The option to download coefficients is enabled by choosing the 
"Tap Filter Load” menu entries. The Macintosh will then present the 
standard open file dialog box t which you use to specify the name of 
the appropriate text file. 


Program Design 

The program is written in 68000 Assembly Language using the 
Macintosh Development System assembler, from Apple. 

The program has been structured into seperate managers for 
each of the program's functions. A seperate file contains the 
functions associated with each manager. For example, the Parameter 
Settings (or "PS”) manager is contained in the file WDHAPS.Asm, and 
includes all routines associated with the Aid Parameters window. 

Below is a description of each manager, it's function, and the 
routines contained in each. 

1 WDHA.Asm 

The overall program structure is typical of a Macintosh 
application in that it has an event loop which dequeues events from 
the event queue, and then branches to code which processes each 
particular type of event. WDHA.Asm contains the WDHA program's 
event loop. 

WDHAPS.Asm 

The Parameter Settings ("PS”) manager contains all routines 
associated with the Aid Parameters window, which allows the user to 
control the gains and limits of each of the channels in the four 
channel programs. Specifically, these routines are as follows: 

WDHAPSOpen - Create and display the Aid Parameters window. 

WDHAPSClose - Close the Aid Parameters window and dispose 
the memory associated with it. 

WDHAPSShow - Make the Aid Parameters window visible. 

WDHAPSHide - Make the Aid Parameters window invisible. 

WDHAPSDraw - Update the contents of the Aid Parameters 
window. 


HO 
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WDHAPSControl - Cause the appropriate modification of the Aid 
Parameters window when a mousedown event occurs 
within it's content region. 

WDHAPSIS - Given a window pointer, this routine determines if 
it is the Aid Parameters window or not. 

WDHAPSSetParam - Update the hearing aid to contain the 
settings specified in the Aid Parameters window. 

WDHATC.Asm 

The TC manager contains all routines associated with the Tone 
Parameters window, which allows the user to specify the parameters 
for the test/calibrate function of the four channel program, and 
initiate the test. Specifically, these routines are as follows: 

WDHATCOpen - Create and display the Tone Parameters 
window. 

WDHATCClose - Close the Tone Parameters window and dispose 
the memory associated with it. 

WDHATCShow - Make the Tone Parameters window visible. 

WDHATCHide - Make the Tone Parameters window invisible. 

WDHATCDraw - Update the contents of the Tone Parameters 
window. 

WDHATCControl - Cause the appropriate modification of the 
Tone Parameters window when a mousedown event 
occurs within it's content region. 

WDHATCIS - Given a window pointer, this routine determines if 
it is the Tone Parameters window or not. 

WDHATCIdle - Blink the text caret of the Tone Parameters 
window. 

WDHATCKey - Insert a key press into the active text box of the 
Tone Parameters window. 

WDHATCDoTest - Initiate a test by the hearing aid program, 
using the parameters specified by the Tone Parameters 
window. 

EarModuleCalibrate - Compute the He values for each of the 
four channels (this routine uses the test/calibrate 
function of the hearing aid to figure the real ear pressure 
at the center frequency of each channel). 

WD HA SCSI. Asm 

The SCSI manager contains all routines which send record 
structures to the hearing aid via the SCSI bus. 


HI 
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SetParam - Send the four channel parameter record (containing 
the gains and limits) to the four channel hearing aid 
program. 

SetCoefficients - Send out the filter tap coefficients to the four 
channel hearing aid program. 

SetFileParams - Send the parameters required by the spectral 
shaping program. 

wdhatest - Initiate a pure tone test by sending the 
test/calibrate record to the hearing aid. 

WDHAFC.Asm 

The WDHA program accesses some numerical values it needs 
by reading them in from text files. The File Coefficients (FC) manager 
contains routines which access these text files. 

WDHAFCSet - This routine is called when the user selects the 
"Load Filter Taps" menu option. It uses the SFGetFile 
dialog to get the name of a text file containing filter 
coefficients, convert the contents to integer form, and 
then downloads them to the hearing aid. 

WDHASetFileParams - This routine is used to download 

parameters to the Spectral Shaping hearing aid program. 

It uses the SFGetFile dialog to get the name of a text file 
containing the spectral shaping parameters, converts the 
contents to integer form, then downloads them to the 
hearing aid. 

WDHACalEarModFile - This routine is called when the user 

calibrates the ear module. It uses the SFGetFile dialog to 
get the name of a text file containing ear module H 
Tables, and converts it’s contents to integer form in 
memory. Then it calibrates the ear module using the TC 
manager function EarModuleCalibrate. Finally, it writes 
the new H Tables over the same file. 

WDHAMenu.Asm 

The Menu manager contains ail routines associated with the 
WDHA program's menu bar. 

MakeMenus - Create the Menu bar containing the accessory, 
file, and hearing aid menus, and display it on the screen. 


42 



33 


5,724.433 


34 


MenuBar * When the main event loop gets a mouseDown event 
located in the menu Bar, this routine calls the appropriate 
code to handle the selection, 

SetProgMenu - This routine interrogates the hearing aid to 
determine which program it is currently running, then 
places the appropriate menu in the menu bar. 

Programmer’s Note - 

As explained earlier, the WDHA program has seperate 
pulldown menus defined for each program which runs on the hearing 
aid, giving the options available for that particular program. It is not 
difficult to add a new menu to the hearing aid program. The 
following example shows the steps one would follow to add a new aid 
menu (in this case 'Aidl7') to the menu bar. 

First of all, the constants needed for the menu must be defined 
with equate statements. You must define the code returned by the 
aid program when it is interrogated by the Macintosh, the identifier 
for the menu itself (as required by the NewMenu toolbox function), 
and the offset within the menu handles declarations where this 
handle will reside (the handles are defined in a sequential block of 
memory near the end of the Menu.Asm file). 

Aidl7ID equ -17 ; aid program id returned by interrogating the 

aid. 

Aidl7Menu equ 17 ; Unique menu identifier 

menuaidl7equ 40 ; 10*4=menuhandle offset (this is the tenth 

handle) 

Next you would declare the location to store the menu's handle 
at the end of the menu handles declarations: 

dc.I 0 ; Aidl7 menu handle 

Next one would add code to the MakeMenus routine to create 
the new menu (simply cut and paste the code which creates one of 
the current menus and modify it accordingly). 

You would also modify the SetProgMenu routine to handle the 
new menu (once again simply replicate the code sections which 
handle one of the old menus, and change the menu names 
appropriately). 

Finally, you would modify the MenuBar routine to handle your 
new menu. If all the options contained in your menu are also in the 
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other hearing aid menus, you can call the InAidMenu procedure (as 
the other menus do), otherwise you must define your own procedure 
to call. 

WDHADisk.Asm 

The disk manager contains routines used to access disk files on 
the Macintosh. 

DiskCreate - Create a new file. 

DiskRead - Read sectors from a file. 

DiskWrite - Write sectors to a file, 

DiskEject - Eject a disk. 

DiskOpen - Open a file. 

DiskClose * Close a file 

DiskSetFPos - Set the position of a file’s read/write mark. 
DiskSetEOF - Set the location of the end of file marker for a 
file. 

DiskSetFInfo - Set the finder information for a file. 
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Include MacTraps.D 
Include ToolEquX.D 
Include SysEquX.D 
Include QuickEquX.D 
include MDS2;WDHAPS,hdr 
Include MDS2:WDHATC.hdr 
Include MDS2:WDHAMenu.hdr 


WO HA program 

This program controls several Macintosh windows which aJtow the user to 
manipulate the digital hearing aid. The Macintosh communicates with the aid 
by sending records via the SCSI port. 

This particular file is a ’standard" Macintosh style event loop 
which dequeues each event and calls the appropriate routine to handle the event 

Additional files contain routines associated with each control window. 
Executing the program should provide an overall understanding of the function 
of these windows. Specifically, the packages used are: 

The WDHA Paramater Settings Window Manager - in WDHAPS.Asm 

The WDHA Test/Calibrate Window Manager - in WDHATC.Asm 

In addition, the following files contain various utility routines: 

WDHAMenuAsm - sets up the menus 

WDHASCSt.Asm - low level routines for communicating through the SCSI bus. 

WDHAFC.Asm - contains high-level routines for downloading coefficient 
files to the hearing aid. 

WDHADisk.Asm * routines for doing disk access. 

External Definitions 


XDEF 

Start 

XDEF 

Event Loop 

XDEF 

Update 

XDEF 

What 

XD EF 

When 

XDEF 

EventRecord 

XDEF 

WWindow 

XDEF 

Message 

XDEF 

Where 

XDEF 

Modify 


Constant Definitions 


ActiveBit 

equ 0 

;Bit position of de/activate in modify 




Start: 



bsr 

ImtManagers 

; Initialize ToolBox 

bsr 

WDHAPSOpen 

; Create the parameter settings window. 

bsr 

WDHAPSHide 

; Don't leave it open though. 

bsr 

WDHATCOpen 

; Create the test/calibrate window. 

bsr 

WOHATCHide 

; Don't leave it open though. 


V5 
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bsr MakeMenus ; Set up the menus 

EventLoop: 

_SystemTask ; Give System some time 

bsr WDHATCIdle ; Blink the test window's caret 

; FUNCTION GetNextEvent(eventMask: INTEGER; 

VAR theEvent: EventRecord) : BOOLEAN 


CLR 

MOVE 

PEA 

_GetNextEvent 

MOVE 

BEQ 

BSR 

bra 


-(SP) 

#$0FFF,-(SP) 

EventRecord 

{SPH.DO 

EventLoop 

HandleEvent 

EventLoop 


Clear space for result 
Allow 12 low events 
Place to return results 
Look for an event 
Get result code 
No event... Keep wailing 
Go handle event 
return to eventloop call 


HandleEvent: 

; Use the event number as an index into the Event table. These 12 events 
; are ail the things that could spontaneously happen while the program is 
; in the main loop. 


MOVE 

ADD 

MOVE 

JMP 


What, DO 

00,00 

EventTabie(DO),DO 

EventTable(DC) 


; Get event number 
*2 for table index 
Point to routine offset 
and jump to it 


EvantTable: 

DC.W OtherEvent-EventTable ; Null Event (Not used) 

DC.W MouseDown-EventTabie ; Mouse Down 

DC.W OtherEvent-EventTable ; Mouse Up (Not used) 

DC.W KeyEvent-EventTable ; Key Down 

DC.W OtherEvent-EventTable ; Key Up (Not used) 

DC.W KeyEvent-EventTabls , Auto Key 

DC.W UpDate-EventTable ; Update 

DC.W OtherEvent-EventTable ; Disk (Not used) 

DC.W Activate-EvantTable ; Activate 

DC.W OtherEvent-EventTable ; Abort (Not used) 

DC.W OtherEvent-EventTable ; Network (Not used) 

DC.W OtherEvent-EventTable ; I/O Driver (Not used) 


Event Actions 


OtherEvent: 

rts 


Activate: 

; An activate event is posted by the system when a window needs to be 
; activated or deactivated. The information that indicates which window 
; needs to be updated was returned by the NextEvent call. 


btst 

beq 

; Bring it to the front 
move. I 


#ActiveBit, Modify 
Deactivate 


; Activate? 

; No, go do Deactivate 


4(p 


Message,- (sp) 
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_BringTo Front 
; Show it 

move. I Message, -(sp) 

_ShowWindow 
; Select it 

move.) Message, -<sp) 

^Select Window 

rts 

Deactivate: 

rts 


Update: 

; The window needs to be redrawn. 

; PROCEDURE BeginUpdate (theWindow: WindowPtr); 


MOVE.L 

message, -(SP) 

; Get pointer to window 

_BegsnUpDate 


; Begin the update 

move! 

message, -(sp) 


bsr 

WDHATCIS 

; Was it our TC window? 

tst.w 

(sp)+ 


BEQ 

DontTCDraw 


bsr 

WDHATCDraw 

; Draw the TC window. 

bra 

DoneDraw 


DontTCDraw: 



move.l 

message, -(sp) 


bsr 

WDHAPSIS 

; Was it our PS window? 

tst.w 

(sp)+ 


BEQ 

DontPSDraw 


bsr 

WD HAPS Draw 

; Draw the PS window. 

bra 

DoneDraw 


DontPSDraw: 



DoneDraw: 



: PROCEDURE EndUpdate (theWindow: WindowPtr); 

MOVE.L 

message. -(SP) 

, Get pointer to window 

_End Update 


; and end the update 

rts 



MouseDown: 



; If the mouse button was pressed, we 

must determine where the click 

; occurred before we can do anything. 

Call FindWindow to determine 

; where the click was; dispatch the event according to the result 

; FUNCTION 

FindWindow (thePt; Paint; 

; 

VAR whichWindow: WindowPtr): INTEGER; 

. CLR 

•(SP) 

; Space for result 

MOVEl 

Where, -(SP) 

; Get mouse coordinates 

PEA 

WWindow 

; Event Window 

_Find Window 


; Who's got the click? 

MOVE 

(SP)+,D0 

; Get region number 

ADD 

DO, DO 

; *2 for inde*- into table 

MOVE 

WindowTable(DO),DO ; Point to routine offset 
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JMP WindowTable(DO) ; Jump to routine 


Wind owT able: 



DC.W 

other-WindowTable 

: In Desk (Not used) 

DC.W 

MenuBar-WindowTable 

; In Menu Bar 

DC.W 

SystemEvent-WindowTable ; System Window < 

DC.W 

Content-WindowT able 

; In Content 

DC.W 

Drag-WindowT able 

; In Drag 

DC.W 

Grow-WindowTabte 

; In Grow 

DC.W 

GoAway-WindowTable 

; In Go Away 

Other: 



rts 




SystemEvent: 

; Call SysiemClick to handle the desk accessory windows, 
pea Eventflecord 
move.! wwindow.-(sp) 

_SystamClick 

rts 

Content: 

; Was it in the content of an active window? 


clr.l 

-(sp) 


FrontWindow 

move.! 

(sp)+.dl 

; Get the FrontWindow in dl 

cmp.l 

wwindow.dl 

; Are they the same? 

beq 

WasActive 


move.l 

wwindow.-(sp) 

; It wasn't 

_SelectWindow 


; So select it. 

bra 

DoneContent 


WasActive: 

move.l 

wwindow,*(sp) 


bsr 

WDHAPS1S 

; Was it our PS window? 

tst.w 

<Sp} + 


beq 

NotPSContent 


move.l 

where, '(sp) 


bsr 

WDHAPSContral 

: Handle the event. 

bra 

DoneContent 


NotPSContent; 

move.l 

wwindow.'(sp) 


bsr 

WDHATCJS 

; Was it our TC window? 

tst.w 

(«P)+ 


beq 

NotTCContent 


move.l 

where.-(sp) 


bsr 

WDHATC Control 

; Handle the event 

bra 

DoneContent 


NotTCContent: 

DoneContent: 

rts 


Drag: 

; The click was *n the drag bar of the window. Draggit. 

; DragWindow (theWindow:WindowPtr; startPt: Point; boundsPSect: Rect); 
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i 

\ 


MOVEL wwrndow t '{SP) ;Pass window pointer 
MOVE.L where,-(SP) ;mouse coordinates 

PEA bound ;and boundaries 

_DragWindow ;Drag Window 

rts 

Grow: 

; The click was in the grow box 
NoGrow: rts 


GoAway: 

clr.b *(sp) 
move. I wwindow,-(sp) 
move.! where,-(sp) 

_TrackGoAway 
tst.b (sp)+ 
beq NoGoAway 
JustHide: 

; PROCEDURE HideWindow (theWindow 
MOVEL wwindow,*(SP) 

_Hide Window 
NoGoAway: 
rts 

KeyEvent: 

CLR.L -(SP) 

_FrontWindow 
bsr WDHATCIS 
tst.w <sp) + 
beq TCNotActive 

jnove.wmessage+2,-(sp) 
bsr WDHATCKey 

TCNotActive: 
rts 

; InitManagers initializes all the TooiBox managers. You should call 
; InitManagers once at the beginning of your program if you are using 
; any of the TooiBox routines. 

InitManagers: 

pea -4(a5) 

JnitGraf 

JnitFonts 

move. I #$00G0FFFF,d0 

_FlushEvents 

JnitWindows 

JnitMenus 

clr.l -(sp) 

JnitDialogs 

_TEinii 

_lnitCursor 

rts 


; Space for result 
; Get window pointer on stack 
; Was it our TC window? 


; get the char 

; Insert it in the active text box 


; Close the Window 
; make room for a Boolean 


; Track It 

; Did they stay in the box? 
; If no then don't dose. 

r WindowPtr) 

; Pass window pointer 
; Hide the Window 
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; WDHA header file 

; this f1l« must be inciuded to access the data structures contained in 
; the file WDHA. Asm 

XREF EventLoop 
XRff Update 
XREF EventRecard 
XREF What 
XFEF Message 
XREF When 
XREF Where 
XREF Modify 
XFEF WWindow 

TRUE ECU 1 

FALSE EQU 0 


60 
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WDHAMac.txt 

macros for WDHA program 

12/27/86 AME 


;0iaiog 

;Macro 

Macro Dialog xpos,ypos,txtstring, result * 

move.w{xpos},-(SP) 

move.w(ypos},-(SP) 

_MoveTo 

pea ’(txtstring}' 

_DrawString 
pea KeyBuf 

bsr GetStr 

lea keybuf.aO 

mova.w#1 ,*(SP) 

_Pack7 ;StringToNum 

move.wdO,{result} 


;DispString 
: Macro 

Macro DispString xpos.ypos.txtstring - 

move.w{xpos}.-{$P) 

move.w{ypos},-{SP) 

_MoveTo 

pea ’{txtstring}' 

_0 rawString 

I 

;OispValue 

;Macro 

Macro DispValua xpos.ypos, label, value ■ 
movem.l a0*a6/d0-d7,-{sp) 

move.w{xpos},-(SP) 
move.w{ypos},'(SP) 

_MoveTo 
pea '{label}* 

_DrawString 

lea KeyBuf.aO 
move. I {value}, dO 

move.w#0,-{SP) ;Select NumToString 

_Pack7 

pea KeyBuf 
_DrawStnng 

movem.l <sp)+.a0-a6/d0-d7 


;DispWValue 

;Macro 
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Macro DispWVaJue xpos.yposjabel, value » 
movem.l a0-a6/d0-d7,-(spj 

move.w{xpo$},-(SP) 
move.w{y'pos},-(SP} 

_MoveTo 
pea ‘(label^ 

JDrawString 

)ea KeyBuf.aO 
move, w (value}, dO 
ext. I dO 

move.w#0,-{SP} ;Select NumToString 

_Pack7 

pea Key Buf 

_DrawString 

movem.l (Sp)+,a0-a6/d0-d7 


t 

ii 




* i 


5*- 
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; WDHAMenu.Asm 

; This iiis contains routines which create and manipulate the menus used 
; the WDHA program. 

Include MacTraps.D 
Include Too€quX.D 
Include SysEquX.D 
Include QuickEquX.D 
Include MDS2:WD HAMac. txt 
Include MDS2:WDHA.hdr 
Include MDS2:WDHAPS.hdr 
Include M0S2:W0HATC.hdr 
Include MDS2:WDHAFC.hdr 
Include M0S2:W0HASCSI.hdr 


xdef 

MakeMenus 

xdef 

MenuHandles 

xdef 

MenuSar 

AppieWenu 

EQU 

1 

Aboutltem 

EQU 

t 

menuapple 

equ 0 

;menuhandle offset 

FileMenu 

EQU 

2 

Quitltem 


EQU 1 

menufile 

equ 4 

;menuhandle offset 


; Now the aid menus. All have a ’new program’ entry, and a blank line. 
NewProgltem ECU 1 


AidBlank 

EQU 

2 

Aid12lD 


EQU - 1 2 ; program version id 

Aidl 2Menu 

EQU 

5 

Setltem 

EQU 

3 

Testltem 

EQU 

4 

menuaidl2 

equ 3 

;menuhandle offset 

Aidl 31D 


EQU * 1 3 ; program version id 

Aidi3Menu 

EQU 

6 

FCltem ECU 

5 


menuaid13 

equ 12 

;menuhandle offset 

AidUlD 


KXI - 1 4 ; program version id 

Aid14Menu 

EQU 

7 

menuaid14 

equ 16 

;menuhandle offset 

SS15ID 


EQU *100 

SStSMenu 

EQU 

8 

Load Item 

EQU 

3 

menusstS 

equ 

20 

NorteMenu 

EOJ 

9 

menunone 

equ 

24 
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; Name: MakeMenus 

; Function: MakeMenus creates and displays the menu bar. 

; Input: None 
; Output: None 
MakeMenus: 

;Clear menu bar 

_ClearMenuBar 

lea MenuHandles,a4 
;First add Apple Menu 
;Make it. 

clr.l *{sp) 

move.w#AppleMenu,-{sp) 
pea AppleName 
_NewMenu 

move.i (sp)+,meouapple(a4) 

;Add entries 

move.i menuapple(a4),-{sp) 
pea ‘About WDHA,(-‘ 

_App end Menu 

move.i menuapple(a4),-(sp) 
move.i #’DRVR\-{sp) 

_AddResMenu 
;fnsert It In the menu bar. 

move.i menuapple(a4),-(sp) 
move.w#0,-{sp) 

JnsertMenu 

; Now add File Menu 
;Make it. 

clr.l -{sp) 
move.w#FiieMenu,-(sp) 
pea ’File' 

_NewMenu 

move.! (sp)+,menufile(a4) 

;Add entries 

move.i menufile(a4),-{sp) 
pea ’Quit* push menu item 

_AppendMenu 
; Insert it in the menu bar. 

move.i menufile(a4),-(sp) push handle again 

move.w#0.*($p) ;insert at end 

JnsertMenu 

;Now create the WDHA program menus. 

; none 

clr.l -(sp) ;space for function result 

move.w#NoneMenu,-(sp) 

pea ’WDHA Disconnected' ;menu title 

_NewMenu 

move.i (sp)+,menunone(a4) ;store handle 

;Add entries. 

move.i menunone(a4),-(sp) push handle 

pea ‘New WDHA Program;(-' ;menu items. 


;spaca for function result 
;first menu 
;apple character 

;store handle 

push handle again 

push menu item 

push handle again 
;ioad all drivers 


push handle again 
;insert at end 


;space for function result 
^second menu 
;menu title 

;store handle 

push handle again 
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Append Menu 


; aidl2 

clr.l -<sp) 

move.w#Aidt 2Martu,-(sp) 
pea \Aid12' 

_NewMenu 

move.! (sp)+,menuaidt 2(a4) 
;Add entries. 

move. I menuaid12{a4),-{sp) 
pea 'New WDHA Program;(*;4 
_ApperdMenu 


;space for function result 
;manu title 
;store handle 
push handle 

Channel Parameters ;Tast Calibrate’ ;menu items. 


; aidl3 

clr.l *(sp) 

move.w#Aidl 3Menu,-{sp) 
pea 'Aid 13’ 

_NewMenu 

move. I (sp)-t-,menuaid13(a4) 
;Add entries. 

move. I menuaid13(a4),-(sp) 
pea ‘New WDHA Program;(-;4 
;menu items. 

_AppendMenu 


;space for function result 
;menu title 
;store handle 
push handle 

Channel Parameters;Test Calibrate; 32 Tap Filter Load’ 


; aidl4 

clr.l -(sp) 

move.w#Aidl4Menu,-(sp) 
pea 'Aid 14' 

_NewMenu 

move. I £sp)+.menuaid14(a4) 
.Add entries. 

move. I menuaid14{a4),-(sp) 
pea ‘New WDHA Program ;(-;4 
;menu items. 

_AppendMenu 


; space for function result 
;menu title 
;store handle 
push handle 

Channel Parameters;Test Calibrate;31 Tap Filter Load’ 


;space for function result 
;menu title 


; SSI 5 

clr.l *(sp) 
move.w#SS1 5Menu,-{sp) 
pea 'SSI 5' 

_NewMenu 

move. I (sp)+,menusst5(a4) ;store handle 

;Add entries, 

move. I menussl 5{a4),*(sp) push handle 

pea ‘New WDHA Program;(-;Parameter Load' ;menu items. 

_AppendMenu 


insert one in the menu bar since SetProgMenu deletes one. 
move. I menunone(a4),*(sp) push handle again 

move.w#0,-{sp) ;insert at end 

Insert Menu 


; Set the proper WDHA program menu 
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bsr SetProgMenu 
rts 

; Name: SetProgMenu 

; Function: This routine interrogates the hearing aid to determine which 
; program it is currently running, then places the appropriate menu 

; in the menu bar. 

; Input: None 
; Output: None 
SetProgMenu: 

: Close windows so that no inappropriate windows remain, 
bsr WDHAPSHide 

bsr WDHATCHide 

; Delete the old menu (whichever it is) 
move.w#Aidl2Menu,-{sp) 

_DeleteMenu 

move.w#Aid13Menu,*(sp) 

_DeleteMenu 

move.w#Aid1 4Manu,-(sp) 

^DeleteMenu 

move.w#$Sl 5Menu,*(sp) 

_De(eteMenu 

move.w#NoneMenu,-($p) 

_OeleteMenu 
; Default to NoneMenu 

lea MenuHandles,a4 

move. I menunone(a4),-{$p) 
move.w#0,-(sp) 

_JnsertMenu 
.redraw the bar 

_DrawMenuBar 

move.w#0,-(sp) :cJear any highlighting. 

_HiLiteMenu 
; Now check what it is 
clr.w *(sp) 

bsr SCSUnterrogate 

move.w(sp)+,d0 
lea MenuHandles,a4 

cmp.w #Aid12tD.dO 

bne NotAidl2 

move. I menuaidl 2(a4),a3 ;gat handle 

bra AddProgMenu 

NotAidl 2: 

cmp.w #Aid13ID,d0 

bne NotAidl 3 

move. I menuaidl 3{a4).a3 ;get handle 

bra AddProgMenu 

NotAidl 3: 

cmp.w #Aid14ID,dO 

bne NotAidl 4 

move.) menuaidl 4(a4).a3 ;get handte 

bra AddProgMenu 

NotAidl 4: 

cmp.w #SSt5ID.d0 




T 
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bna NotSSI 5 

move.l menusst5{a4),a3 ;g et handle 
bra AddProgMenu 

NotSSI 5; 

move. I menunone(a4),a3 
move.w#20. *(sp) 

_SysBeep 

AddProgMenu: 

rnove.w#NaneMenu,-(sp) 

_OeleteMenu 
move. I a3,-{sp) 
move.w#0,-(sp) 

J InsertMenu 
;redraw the bar 

_DrawMenuBar 

ClearReturn: 

move. w#0,-(sp) ;clear any highlighting. 

_HiLiteMenu 


; Name: MenuBar 

; Function: This routine should be called when the mouse is clicked in the 
; menu bar. 

; Input: None 
; Output: Nona 
MenuBar: 

clr.l -{sp) ;space for result 

move. I where,-(sp) location of mouse 
_MenuSelect 

move.l (sp)-f-.dO ;get result (menu id, item #) 

swap dO ;get menu id in low word 

Choices: 

cmp.w #Q,dO ;Was it in any menu? 

beq ;no menu id 

cmp.w #AppleMenu,dO ;Was it in the apple menu? 
beq In Apple Menu 

cmp.w #FifeMenu,dO ;Was it in the fife menu? 
beq InFiieMenu 

cmp.w #NoneMenu,dO 
beq InSSMenu 

cmp.w #Aid1 2Menu,dO 
beq InAidMenu 

cmp.w #Aidl3Menu,dO 
beq InAidMenu 

cmp.w #Aid14Menu,dO 
beq InAidMenu 

cmp.w #$Sl5Menu.dO 
beq InSSMenu 

@1 bra ClearReturn 

InAppleMenu: 

; Get item 


^7 
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swap dO ; get item # in low word 

cmp.w #Aboutltem,<10 
bne NotAbaut 

Open About dialog window. 

FUNCTION NewWindow (wStcrage: Ptr; boundsRect: Rect; 

title: Str255; visible: BOOLEAN; 
procID: INTEGER; behind: WindowPtr; 
goAwayFlag: BOOLEAN; 



refCon: Longfnt) 

: WindowPtr; 

SUBQ 

#4,SP 

; Space for function result 

CLRL 

•{SP) 

; Storage for window (Heap) 

PEA 

AboutBounds 

; Window position 

PEA 

‘About WDHA' ; Window title 

MOVEB 

#255, -{SP) 

; Make window visible 

MOVE 

#dBoxProc,-(SP) 

; Standard document window 

MOVEL 

#-1 .-(SP) 

;Make it the front window 

move.B 

#-1 ,-(SP) 

; Window has goAway button 

CLRL 

-(SP) 

; Window refCon 

NewWindow 

; Create and draw window 

lea 

AboutPtr,a4 


MOVEL 

(SP)+,(a4) 

; Save handle for later 

MOVEL 

{a4),-(SP) 

; Make sura the new window is the port 

: PROCEDURE SetPort (gp: GrafPort ) 


_SatPort 

; Make it the current port 

move.w 

#0,-(sp) 


JTextFont 

; Make sure 

it's the system font 

move.w#1 

•(sp) ; Bold 


_TextFaca 



DispString 

#20, #16, Wearable Digital Heanng Aid Fitting Procedure V. 1.0 

move.w#Q,- 

■(sp) ; Plain Text 


^TextFace 



DispString 

#2Q0,#32 ( Central Institute For The Deaf 

DispString 

#200, #48,81 8 South 

Euclid Ave. 

DispStnng 

#200, #64, St. Louis 

Mo. 63110 

DispString 

#200,#80, Phone: 314-652-3200 

move.w#l , 

-(sp) ; Bold 



_TextFace 

DispString #20, #96, Supported in part by: 

"fnove.weO.-tsp) ; Plain Text 

JTextFaca 

DispString #40,#1l2,The Rehabilitation Research And Development Service 

DispString #40, #1 28, Dept, of Medicine and Surgery: Veterans Administration 

; Print the big *010* 

move.w#36,-(sp) 

_TextSize 

move.w#1 7,-(sp) ; Bold+Shadow 

^TextFace 

DispString #44,#64,CID 

; Set text characteristics back to normal 
move.w#1 2,-{sp) 
w TextSize 

move.w#0,-{sp) ; Plain Text 

_TexlFace 
; Wait for an event 


j5S 
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move. I #$Q000FFFF,d0 
_FlushEvents 
EvtWait: 

; FUNCTION GetNextEvent(eventMask: INTEGER; 

VAR theEvent: EventRecord) : BOOLEAN 
CUR -<SP) ; Clear space for result 

MOVE #$000F,-{SP) ; Allow 12 low events 

PEA EventRecord ; Place to return results 

_GetNextEvent ; Look for an event 

MOVE (SPKDO ; Get result code 

BEQ EvtWait ; No event... Keep waiting 

; Dispose Window 

move.! AboutPtr.-(sp) 

_DispasWindow 
bra ClearReturn 

NotAbout: 

lea MenuHandles,a4 

move.l menuapple(a4),*(sp) ; Look in Apple Menu 
mova.wdO.-fsp) ; what item # 

pea DeskName ; get item name 

_Getltem 
; OoenDeskAcc 

ctr.w *{sp) ; space tor result 

pea DeskName ; open DeskName acc 

_OpenDeskAcc 

mcve.w(sp)+,dO ; pop result 

bra ClearReturn 

InFileMenu: 

swap do 

cmp.w #Quitltem,dO 
bne DoneFile 
bsr WDHAPSCtese 
bsr WDHATCCIose 
_ExitToSheil 
DoneFile: 

bra ClearReturn 
InAidManu: 

swap dO ; get item ft in low word 

cmp.w #NewProgitem,dO 
bne <§>9 
bsr SetProgMenu 
bra WMDone 

m 

cmp.w aSetltem.dO 
bne @1 

bsr WDHAPSShow 
bra WMDone 
@1 cmp.w #Testltem,dO 

bne @2 

bsr WDHATCShow 
bra WMDone 
<3)2 cmp.w #FCIIem,dO 


S9 


; get item # in low word 
; Is it quit? 

; If not forget it 

; dispose of the parameter settings window 
; dispose of the test/calibrate window 
; leave application 
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bne @4 

bsr WDHAFCSet 

bra WMDone 


@4 

WMDcne bra CfearReturn 


InSSMenu: 

swap dO ; gat item * in low word 


cmp.w #NewProgltem,dO 



bne 

<3>t 


bsr 

SetProgMenu 


bra 

SSDone 

@1 

cmp.w 

fLoadltem.dO 


bne 

@2 


bsr 

WDHASetFileParams 

@2 

bra 

SSDone 

SSDone bra 

ClearReturn 




MenuHandles: 

dc.l 

0 


dc.l 

0 


dc.l 

0 


dc.l 

0 


dc.l 

0 


dc.l 

0 


dc.l 

0 

AppleName: 

dc.b 

1 ,$ 1 4 

DeskName: 

dcb.w 

16,0 

AboutPtr 

dc.l 

0 

AboutBcunds: 

dc.w 

100 


dc.w 

50 


dc.w 

232 


dc.w 

472 


here 

;handie to apple menu 
;handle to file menu 
;handte to aidt2 menu 
; handle to aid 13 menu 
;handle to aid14 menu 
;handle to sst5 menu 
;handle to none menu 

; A string containing the appie symbol 
;desk accessories name 

; the About dialog window pointer 

; upper 
; left 
; lower 
; right 
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;WDHAMenu header file 

; This file must be included if any routines in WDHAMenu are used, 
xref MakeMenus 
xref MenuHandles 
xref MenuBar 


u 
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. file WOHAPS.Asm 

include MacTraps.D 
Include TooiEqu.D 
Include SysEquX.D 
Include QuickEquX.D 
Include SANEMacs.txt 
Include MD$2:WDHA.hdr 
Include MDS2:WDHASCSI.hdr 


WDHA Paramater Settings Window Manager 

This package contains routines to manipulate the WDHA Parameter 
Settings window. This window contains an interlace which controls the 
gain and limit of each channel of the WDHA by allowing the user to move 
bars on a graph of Frequency versus dB SPL (execute the program for a better 
understanding], this control is referred to as the "PSGraph" in the program 
documentation. Next to this graph is a chart (the “PSCharf) containing the 
numeric values of each channel's gain and limit 

It also contains control buttons to specify if the WDHA should be in 
Hearing aid mode, if the input attenuation should be off or on, and whether 
the aid should use the probe mike or the field mike. The output attenuation 
is automatically turned on or off by the program, it's control being used 
as an indicator of this status. 

Wherever the documentation refers to the term ’theta", it is refenng 
to the height of the lower bar of the bar graph, and wherever the documentation 
uses "phi", it refers to the height of the upper bar. 

External Definitions 

XDEF WDHAPSOpen 
XDEF WDHAPSCIOse 
XDEF WOHAPSShow 
XDEF WDHAPSHxje 
XDEF WDHAPSDraw 
XDEF WDHAPSControi 
XDEF WDHAPSIS 
XDEF WDHAPSSetParam 

; Constant Definitions 

CHANNELS ECU 4 ; There are four channels 

r PSG = The Parameter Settings Graph 

PSGHetght ECU 1 20 , Graph height in pixels 

PSGChan Width ECU 20 ; each bar is PSGChan Width pixels wide. 

PSGWidth EQU CHANNELS"PSGChanWidth ; Graph width in pixels 

PSGInitX EQU 30 ; initial X coord (local) of ul comer of graph 

PSGInitY EQU 20 ; initial Y coord (local) of ul corner of graph 

; PSC m The Parameter Settings Chart 

PSCFWtdth BQU 46 ; channel, gain and limit field width 

PSCFHeight EQU PSGHeighV(CHANNELS+l) ; height of box in chart 

PSCWidth EQU 3"PSCF Width 

PSCInitX EQU PSGInitX+PSG Width ; X coord (local) of ul comer of chart 


U 
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PSCInitY ECU PSGInitY ; Y coord (local) of ul comer of chart 

; PS * The Parameter Settings Window 

PSInitX ECU 60 ; initial X coord (global) of upper left corner 

PSInitY EQU 80 ; initial Y coord (global) of upper left corner 

PSRightEQU PSInitX+PSGWidth+PSCWidth+2*PSGInitX+140 

PSTxtSiie SXI 12 


; PSCtl - The Control Buttons 

PSCtllnitX KXJ PSGmitX+PSGWidth+PSCWidth+1 0 

PSCtllnitY BQU PSGlnitY+5 

PSCtlFHeight EQU PSCFHaight 


; — --Subroutine Declarations 

; Name: WDHAPSOpen 

; Function: Call this routine to create and display the PS Window. 

; Input: None 
; Output: None 
WDHAPSOpen: 

movem.l dO-d2/aO-a6,-(sp) ; save registers 

; Set up document window. 

; FUNCTION NewWindow (wStorage: Ptr; boundsRect: Rect; 

; title: Str255; visible: BOOLEAN; 

; procID: INTEGER: behind: WindowPtr; 

; goAwayFlag: BOOLEAN; 

; ref Con: longlnt) : WindowPtr, 

SU8Q #4,SP ; Space for function result 


SU8Q #4.SP ; Space for function n 

CLRL -(S P) ; Storage for window (Heap) 

PEA WDHAPSBounds ; Window position 

PEA *WDHA Parameter Settings' ; Window title 

MOVEB #255,-{SP) ; Make window visible 

MOVE #rDocProc,-(SP) ; St; 

MOVEL #-V(SP) ;Mai 

move.B #-1,-(SP) ; Wi 

CLRL -(SP) ; Wi 

NewWindow ; Cr 

lea WDHAPSPtr, a4 

MOVEL (SP)+,(a4) ; Sa 

MOVEL (a4),-(SP) ; M; 

; PROCEDURE SetPort (gp: GrafPort) 

_SetPort ; Make it th 

; Add the control buttons 

bsr PSAddControls 

bsr WDH APS Draw 

movem.l (Sp)+.d0*d2/a0-a6 

RTS 


#rDocProc,-(SP) 

JM.-(SP) 

MSP) 

WDHAPSPtr, a4 

(SP)+,(a4) 

(a4),-(SP) 


; Standard document window 
;Make it the front window 
; Window has go Away button 
; Window refCon 
; Create and draw window 

; Save handle for later 
; Make sure the new window is the port 


Make it the current port 


Restore registers 


; Name: WDHAPSClose 

; Function: Call this routine to destroy the PS Window and remove it from 
; the screen. 

; Input: None 
; Output: None 
WDHAPSClose: 

movem.l dO-d7/aO-a6,-{sp) ; save registers 
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move.l WDHAPSPtr.-(sp) 

_Ki!IControls 
; Dispose Window 

move.! WDHAPSPtr.-(sp) 

_Disp os Window 

movem.l (sp)+,d0*d7/a0-a6 ; restore registers 

rts 

; Name: WDHAPSShow 

; Function: This routine makes the PS window visible and frontmost, 

; Input: None 
; Output: None 
WDHAPSShow: 

movem.l d0-d7/a0-a6,-{sp) ; save registers 

; Bring it to the front 

move.l WOHAPSPtr,*{sp) 

_BringToFront 
; Show Window 

move, I WDHAPSPtr,-(sp) 

_ShowWindow 

move. I WDHAPSPtr,-(sp} 

_SeiectWindow ; So select it. 

movem.l (sp) + ,d0-d7/a0-a6 ; restore registers 

rts 

; Name: WDHAPSHide 

; Function: This routine makes the PS window invisible, removing it from the 
• ; screen (but not destroying it). 

; Input: None 
; Output: None 
WDHAPSHide: 

movem.l dO-d7/aQ-a6,-(sp) ; save registers 

; Hide Window 

move. I WOHAPSPtr.-(sp) 

_H id e Window 

movem.l (Sp)+,d0-d7/a0*a6 ; restore registers 

rts 

; Name: WD HAPS Draw 

; Function: This routine draws the PS window's contents. 

; Input: None 
; Output: None 
WDHAPSDraw: 

movem.l d0-d7/a0-a6,-(sp) ; save registers 

lea WDHAPSPtr,a4 ; Pointer on stack 

MOVE.L (a4),-(SP) 

: PROCEDURE SetPort (gp: GrafPort) 

_SetPort ; Make it the current port 

; First draw the graph 

pea WOHAPSGnaph 

_EraseRect ; clear it 

pea WDHAPSGraph 

_FrameRect ; Frame it 

move.w#patOr,-(sp) 


(A 
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Pan Mode 


; change Co Or pen mode- 


move, w#0,d4 
DrawChans: 

cmp.w #CHANNELS,d4 
beq DoneOC 
; Draw Theta Bar 

pea ThetaPat 
_Pen Pat 
move.wd4,-(sp} 
bar CalThetaRect 
pea TRect 
_PaintRect 
; Draw Phi Bar 

pea PhiPat 
_PenPat 
move.wd4,-(sp) 
bsr CalPhiRect 
pea TRect 
_PaintRect 
add.w #t,d4 
bra OrawChans 
DoneDC: 


; count thru channels 
; draw each channel 
; done yet? 

; set pen pattern to ThetaPat 
; Calculate theta rectangle 
; Fill with pattern 

; set pen pattern to PhiPat 
; Fill with pattern 


_PenNormal ; Reset Pen to original settings 

move.w#PSTxtSize,-(sp) 

_TextSi 2 e 

move. w#PSG lnitX+Q*PSGChan Width +PSGChan Width/2, -{sp) 
move.w#PSGinitY+PSGHeight+PSTxtSize,»(sp) 

_MoveT o 
move.w#'r,*{sp) 

_DrawChar 

move.w#PSGInitX+1*PSGChanWid!h+PSGChan Width/2, -{sp) 
move.w#PSGInitY+PSGHeigh!+PSTxtSize,-($p) 

JMoveTo 

move.w#‘2\*(sp) 

_DrawChar 

m ove.w#PSG I nitX+2* PS GChan Width +PSGChan Width/2, -(sp) 
move,w#PSGInitY+PSGHeight+PSTxtSize,-(sp) 

_MoveTo 

move.w#'3\-{sp) 

_DrawChar 

move.w #PSGJnitX>3*PSGChanWidth+PS GChan Width/2, -|sp) 
move.w#PSGInitY+PSGH 0 ight+PSTxtSize ( -{sp) 

_MoveTo 

move.w#*4\-{sp) 

_OrawChar 

move.w#PSGInitX+(CHANNELS/2)'PSGChanWidth-25,*(sp) 

move,w#PSG!nitY+PSGHeight+2*PSTxtSize,-(sp) 

_MoveTo 
pea 'Channel' 

^DrawString 

mova.w#PSGInitX-20,-(sp) 

move. w#PSGInitY+PSGHeight/2-PST xtSize,-{sp} 

MoveTo 



pea ’cfB' 

_DrawStrtng 

move.w#PSGInitX-24,-(sp) 
rnove.w#PSGIn»!Y+PSGHeight/2,*(sp} 
_Mov«To 
pea 'SPL* 

_DrawSlring 

move.w#9,-(sp) 

_TextSiz® 

move.w#PSGInitX-9, -(sp) 

move.w#PSGInitY+PSGHeight,*(5p) 

_MovaTo 

move.wrO\-{sp) 

_DrawChar 

move.w#PSGlnitX-20,-(sp) 

move.w#PSGInitY+9,*(sp) 

_MoveTo 

pea ‘120’ 

_DrawString 
Now draw the chart, 

_PenNormal 
pea WOHAPSChart 
_FrarreRect 
move.w#PSCInitX,-{sp) 
move.w#PSCInitY+l*PSCFH eight, -(sp) 
MoveT o 

move.w#PSCInitX+PSCVVidth,*{sp} 

rnove.w#PSCInitY+1*PSCFHeight,-{sp) 

_JJneTo 

mavB.w#PSCInitX,-(sp) 

mov©.w#PSC1nitY+2*PSCFHeight,-(sp) 

_MoveTo 

move.w#PSCInitX+PSCWidth,-(sp) 

move.w#PSCtnilY+2*PSCFHeight,-(sp) 

JJneTo 

move.w#PSCInitX.-{sp) 

move.w#PSCfnitY+3*PSCFHeight,*{sp) 

_MoveTo 

. move.w#PSCIn»tX+PSCWidth,.(sp) 
rnove.w#PSClnitY+3*PSCFHeight,-(sp) 
_LineTo 

move.w#PSCtnitX,-(sp) 

move.w#PSCInitY+4*PSCFHeight,-(sp) 

_MoveTo 

move,w#PSClnitX+PSCWidth,-{$p) 

move.w#PSCInitY+4*PSCFHeight,-(sp) 

JJneTo 

move.w#PSClnitX+PSCFWidih,-(sp) 

move.w#PSCInitY,-<sp) 

_MoveTo 

move.w#PSCInitX+PSCFWidth,-(sp) 

move.w#PSCInitY+PSGHeight 1 -(sp} 

JJneTo 

move.w#PSCInitX+2*PSCFWidtlv(sp) 
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move.w#PSCInitY,*{sp) 

_MoveTo 

move.w#PSCInitX+2*PSCFWidtfv{sp) 

move,w#PSClnitY+PSGHeight,-(sp) 

JJneTo 

move. w#PSCInitX+6,-(sp) 

move.w#P$ClnitY+P$CFHeight-6,-tsp) 

_MoveTo 

pea 'Charmer 

^DrawString 

move.w#PSCInitX+PSCFW«jth+1 
move. w#PSCInitY+PSCFH eight-6, -(sp) 
^MoveTo 
pea ’Gain 1 


^Drawstring 

move.w#PSClnitX+2*PSCFWidlh+tO,-{sp) 

move.w#PSClnitY*PSCFHa»ght-6,-(sp) 

_MoveTo 
pea 'Limit' 

_DrawString 

move.w#CHANNELS,d4 ; Now draw the chart data with PrintVai 
iea Theta3,a0 ; will draw the gains and limits too 

DrChartNums; 

; Draw channel # 

move.w#0,-(sp) 
move.wd4,-(sp) 
move.wd4,-(sp) 

. bsr PrintVai 

; Draw gain 

move.w#t,-(sp) 
move.wd4,-(sp) 
move.w(aO),«(sp) 
bsr PrintVai 

; Draw limit 

move.w#2,-(sp) 
mov9,wd4,*(sp} 
move.w2(a0} > -(sp) 
bsr PrintVai 

iea -4{aO),aO 

sub.w #1,d4 

bne DrChartNums 

; Draw the control buttons. 

move. I WDHAPSPtr,-(sp) 

_DrawControls 

bsr WDHAPSSetParam 

movem.l (Sp)+,d0-d7/a0*a6 

rts 


; Column 0 

; Row is same as channel 
; value is channel 


; now do gain 
; Row is same as channel 
Show the theta value as gain 


; now do limit 
; Row is same as channel 
Show the Phi value as limit 


the window ptr 


; update the WDHA. 
; restore registers 


; Name: PSAddControfs 

; Function: This routine adds the PS window's controls. 
: fnput: None 
; Output: None 
PSAddControls: 


movem.l 


d0-d7/a0-a6,«(sp) 


; save registers 
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Set up the controls bounding rectangle, 
lea TRect, a4 

move.wtPSCtllnitY+Q'PSCtlFHeighMaA) ; store y coord 
move.w*PSCUInitX,2(a4) ; store x coord 

move.w*PSCtllmiY4>0*PSCtlFHeight+2Q,4(a4) ; store y coord 

move.w#PSRight.6(a4) ; store x coord 

Push parameters for NewControl 

clr.l -(sp) ; NawControl returns a handle 

move. I WDHAP$Ptr,-(sp) ; the window ptr 


pea TRect 

pea ‘Hearing Aid On’ 

move.b #TRUE,-{$p) ; visible 

move.wtfO.-(sp) ; 

move.w#0,*{sp) ; 

move.w#1 ,-(sp) 
move.wJM ,-(sp) 

move.! SO.-(sp) ; 

Call NawControl 

^NewControl 

lea AidControl,a3 

move.l (sp)+,(a3) ; 

Set up the controls bounding rectangle, 
lea TRect, a4 

move.w#PSCtlJnitY*1"P$CtlFHeight,(a4) ; store y coord 
nnove.w#PSCtltnitX,2(a4) ; store x coord 

move.w#PSCtltnitY*rPSCtlFHeight*2Q,4{a4) ; store y coord 

move.w#PSRight,6{a4) ; store x coord 

Push parameters for NawControl 

clr.l -(sp) ; NawControl returns a handle 

move.l WOHAPSPtr.-(sp) ; the window ptr 


the rectangle bounding the control 
, title 

value 
min 
; max 

; check box proc id 
; refcon not used 


store the result 


the rectangle bounding the control 
; title 

; value 
min 
; max 

; check box proc id 
; refcon not used 


store the result 


pea TRect 

pea ’Input Attenuation’ 

move.b #TRU£,'(sp) ; visible 

move.w#0,-(sp) 
move.w#0,*(sp) 
move.wtfi ,*(sp) 
move.w#1 ,-(sp) 
move.l #0,-(sp) 

Call NewControl 
_New Control 

lea lAControl,a3 

move.l (sp)+,{a3) 

Set up the controls bounding rectangle, 
lea TRect, a4 

move.w#PSCtHnitY+2 # PSCUFHeight,(a4) 
move.w#PSCHInitX,2(a4) ; store x coord 

move.w#PSCttlnitY+2*PSCtlFH0ight+2Q,4(a4) 
move.w#PSRight,6(a4) ; store x coord 

Push parameters for NewControl 

clr.l -(sp) ; NewControl returns a handle 

move.! WDHAPSPtr,*{sp) ; the window ptr 

pea TRect ; the rectangle bounding the control 

pea ‘Output Attenuation’ ; title 

move.b #TRUE,-($p) ; visible 


store y coord 

; store y coord 
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move.w#Q.-(sp| 
move.w#0.*(sp> 
move.w#1 ,-fsp) 
move.w#1 ,-(sp) 
move.! #0,*(sp) 

Cali NewControi 

_NewControl 

lea OAControl,a3 

move.! (spK(a3) 

Set up the controls bounding rectangle, 
lea Tfiect,a4 

move.w#PSCtlinitY+3*PSCtlFHeight,(a4) 
move.w#PSCtllnitX,2(a4} ; store x coord 
move.w#PSCtllnitY+3'PSCtlFHeight+20,4(a4) 


value 

min 

max 

check box prcc id 
refcon not used 


store the result 


store y coord 


store y coord 


visible 


move.w#P$Right,6(a4) 

Push parameters for NewControi 
clr.i *{sp) 

move. I WDHAPSPtr,-{sp) 
pea TRect 

pea 'Field Mike' 

move.b #TRUE,-(sp) 
move.w*M ,*(sp) 
move.w#0.*{sp) 
move.w#V(sp) 
move.w#2,«(sp) 
move.! #0,*(sp) 

Call NewControi 
_NewControl 

lea FieldControl,a3 

move. I (sp)+.{a3) 

Set up the controls bounding rectangle, 
lea TRect,a4 

mova.w#PSCtllni!Y+4*PSCtlFHeight l (a4} 
move.w#PSCtllnitX,2(a4) ; store x coord 
move.w#P$CtllnitY+4*P$CtlFHeighU20,4{a4) 


store x coord 


; NewControi returns a handle 
the window ptr 

; the rectangle bounding the control 
; title 


make Field mike on as the default 

min 

max 

radio button proc id 
refcon not used 


store the result 


store y coord 


store y coord 


move.w#P$Right,6(a4) 

Push parameters for NewControi 
clr.i -(sp) 

move.l WDHAPSPtr.-{sp) 
pea TRect 

pea 'Probe Mike’ 

move.b #TRUE.-(sp) 
move.w#0,*(sp) 
move.w#0,*{sp) 
move.w# V(sp) 
move.w#2,-(sp) 
move.l #0,-{sp) 

Call NewControi 

^NewControi 

lea ProbeControl,a3 

move.l fsp)+,(a3) 
movem.l (Sp)+,d0-d7/a0-a6 

rts 


store x coord 


; NewControi returns a handle 
the window ptr 

; the rectangle bounding the control 
; title 


visible 


value 

min 

max 

. radio button proc id 
; refcon not used 


store the result 
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; CalThetaRect clcuiates the rectangle surrounding the control bar for the 

; given channel, 

; Input: the channel # (a word) is passed on the stack. 

; Output: the rect TRect is filled. 

CalThetaRact: 

movem.t d0'd7/a0-a6,-(sp) 

lea TRect.a4 ; get address of TRect 

move.w#PSGlnitYi-PSGHeight,d4 ; bottom of graph 

move.wd4,4{a4) ; store it in TRect 

lea Theta0,a3 ; Get theta 

move.w64(sp},d3 ; Get channel number 

asl.w #2.d3 ; *4 

sub.w (a3,d3.w),d4 ; compute top of bar y coord 

move.wd4,(a4) ; store it in TRect 

move.w64(sp),d3 ; Get channel number 

mulu #PSGChanWidth,d3 ; channel # • ChanWidth 

add.w #P$GlnitX,d3 ; move over 

move.wd3,2(a4) ; store left side 

add.w *PSGChanWidth,d3 ; add width 

move. wd3,6(a4) ; store nght side 

pea TRect 

move.w#i ,-(sp) 

mave.w#i 

JnsetRect ; make it a tad smaller 

sub.w #1 ,(a4) ; not the top level though 

movem.l ($p)+,dO-d7/aQ-a6 

move. I (sp),2{sp) ; move return address over param 

tst.w ( sp) ♦ ; get rid of parameter 

rts ; and return 

; CalPhiRect clcuiates the rectangle surrounding the control bar for the 

; given channel. 

; Input: the channel # (a word) is passed on the stack. 

; Output: the rect TRect is filled. 

CaiPhiRect: 

movem.l d0-d7/a0-a6,*(sp) 

lea TRect, a4 ; get address of TRect 

move.w#PSGInitY,d4 ; top of graph 
move.wd4,(a4) ; store it in TRect 
lea Phi0,a3 ; Get Phi 

move.w64{sp),d3 ; Get channel number 

asl.w #2,d3 : *4 

move.w#l 20, d5 

sub.w (a3,d3.w),dS ; compute bottom of bar y coord 

add.w 05. d4 

move.wd4,4(a4) ; store it in TRect 

move.w64(sp),d3 ; Get channel number 

mulu #PSGChanW1dth,d3 ; channel # * ChanWidth 

add.w #PSGInitX,d3 ; move over 

move,wd3,2{a4) ; store left side 

add.w #P SGCh an Widt h, d3 ; add width 

move.wd3,6(a4) ; store right side 

pea TRect 

move.w#1 ,*(5p) 
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move.w#1 , *(sp) 

JnselRect ; make it a tad smaller 

add.w #1 ,4(a4) ; not the bottom though 

movem.! (Sp)+,d0-d7/a0-a6 

move.! (sp),2(sp) ; move return address over param 

tst.w {sp)+ ; get rid of parameter 

rts ; and return 


; Name: PrintVai 

; Function; This routine prints the given value at the specified row and 
; column of the PSChart. 

; Input: d3 (word) * value, d4 » row, dS » column 

; Output: None 

PrintVai: 

movem, l dO-d7/aO*a6,-(sp) 

move.w64{sp),d3 
move.w66(sp),d4 
move.w68(sp),d5 
; compute x coord 

mulu #PSCFWidth,d5 

add.w #PSClnitX+24,d5 : 

; compute y coord 

add.w #1 ,d4 

mulu #PSCFHeight,d4 


save registers 
d3 * value to be printed 
d4 * Row in chart 
d5 * column in chart 


column • width of each field 
; shift over 


add.w #PSClnitY-6,d4 
erase whatever is there already, 
lea TRect.a2 

move.wd5,2(a2) 
move.wd5,6(a2) 
add.w #20,6(a2) 
move.wd4,4(a2) 
move.wd4,(a2) 
sub.w #PSTxtSize,(a2) 
pea TRect 

_EraseRect 
move there 

move.wd5,-(sp) 
move.wd4,*(sp) 

_>1oveT o 

convert value to string 
move.wd3,d0 
lea 

move.w#0,-(SP) 

_Pack7 

pea NumBuf 

_DrawString 

movem. I (Sp)+>d0-d7/a0-a6 


add 1 to row 

height of each field 


shift down and then up a little 

: we’ll put it in Trect 
; our x is the left x 
; then compute the right 
; as 20 over from the left 
; our y is the bottom y 
then compute the top 
as TxtSize up from bottom 
; now erase it 


; NumToString expects val in dO 
NumBuf, aO ; address of NumBuf in aO 
; Select NumToString 


move.l (sp),6(sp) 
add.! #6,sp 

rts 


move return address over parameters 
get rid of parameters 


; Name: WDHAPSIS 

; Function: This routine returns a Boolean telling whether or not 
; the given window pointer is the PS window’s pointer. 


7 / 
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; Input: A window pointer (passed on the stack) 

; Output: a word, TRUE or FALSE (defined in WDHA.hdr) returned an the stack. 
; "’Note: You do not have to push a word for the result of this routine. 
WDHAPSIS: 



movem.i 

a4/d4,*(sp) 

; save registers 


move.l 

8(sp),a4 

; get return address in a4 


move.l 

1 2{sp),d4 

; get WindowPtr in d4 


cmp.l 

WDHAPSPtr,d4 

; Was it our window? 


beq 

IStO 

; It Is 


move.w 

#FALSE,14(sp) 

; save result 


bra 

IS20 


IS 1 0: 

move.w 

#TRUE,14(sp) 


IS20: 

move.) 

a4,10(sp) 

; put return address back 


movem.i 

(sp)+,a4/d4 

; restore registers 


tst.w 

<sp)+ 

; get rid of extra two bytes 


rts 


; return 

; Name: 

WDHAPSControl 



; Function: This routine should be called whenever a mousedown event occurs 
; within the contents of the PS Window. It handles the flighting of the 
; proper control buttons, and sends the proper records to the WO HA. 

; Input: The mouse location {on the stack), from the event's where field. 

; Output: None 
WDHAPSControl: 

movem.i dO-d7/aO-a6, *{sp) 

move. I WDHAPSPtr.-(sp) 

; PROCEDURE SetPort (gp: GrafPort) 

_SetPort 

port 

pea 64 (sp) 

_GlobalToLocal 
; Was it in a control button? 

ButtonCback: 

; call FindControi 

clr.w *(sp) 
move.l 66(sp),*(sp) 
move.l WOHAPSPtr.-(sp) 
pea WhichControl 

^FindControi 
tst.w <sp) + 

lea WhichControl, a4 

tst.i (a4) 

beq ChanCheck 

; if it was in a control, call TrackControl 
clr.w -(sp) 

move.l WhichControl. *(sp) 
move.l 70(sp),‘(sp) 
move.l #0,*{sp) 

^TrackControl 
tst.w (sp)+ 
beq NoChan 

; Was it the output Attenuation button? 

lea WhichControl,a4 


; WDHAPSPtr on stack 

; Make sure it's the current 


; push address of point 
: convert it to the window's coords 


; returns a long 
; push point in local coords 
; WDHAPSPtr on stack 
; which one? 

; pop result 

; Was it in any of them? 
; if not try the graph 

; returns a word 

; WhichControl now has the handle 
; starting point 

; no action proc 

; did they change the button? 

; if not then leave 


7 £ 
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move. I OAControi,d4 
cmp.l (a4),d4 

bne NolOA ; if not then was it the (A button? 

; It was the output attenuation button so adjust the bar heights. 


clr.w d3 

lea Theta0,a3 

CGLoop1 1 : 

cmp.w #CHANNELS,d3 
beq InvBut 

clr.w -(sp) 
bsr GOUT 

; use d3 as a channel counter 

move.w(a3),d0 

; get Theta in dO 

sub.w (sp),dO 

; suotract the old GOUT from Theta 

move.wd0,(a3) 

; store Theta 

move.w2{a3),dl 

; get phi in dl 

sub.w (sp)+,di 

; subtract the old GOUT from Phi 

move.wdt ,2(a3) 

lea 4(a3),a3 

add.w # 1 . d3 

bra CGLoool 1 

; store phi 


InvBut: 

clr.w -(sp| 
move.) OAControl,-{sp) 

_GetCtlValue 
move.w(sp)+,d3 
not.w d3 
and.w #1,d3 
move. I WhichControi.-(sp) 
move.wd3.-(sp) 

_SetCtlValue 

clr.w d3 ; use d3 as a channel counter 

lea ThetaO.aS 

CGLoop12: 


cmp.w #CHANNELS43 
beq UD Screen 

clr.w *(sp) 
bsr GOUT 


mave.w(a3),dQ 

; get Theta in dO 

add.w (spj.dO 

; add the new GOUT 

move.wd3,-(sp) 

; now clip the gain as necessary 

move.wdO,-(sp) 

bsr Valid Gain 

; the new gam 

move.w{sp}+,(a3) 

; store it 

move.w2(a3),d1 

; get phi in dl 

add.w {sp)+,d1 

; add the new GOUT to Phi 

move.wd3,-(sp) 

; now dip the limit as necessary 

move.wd1,-{sp) 

bsr ValidUmit 

; the new limit 

move.w(sp}+-,2(a3) 
tea 4(a3),a3 

add.w #1,d3 

; store phi 


; GetCtIValue returns a word 

; now value is in d3 
; invert the status, 

; set it to the new value. 
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bra CGLoop12 

NotOA: 

move.! IAControl,d4 
lea WhichControl,a4 

cmp.l (a4),d4 

brte OtherBut ; if not then forget it. 

; tt was the input attenuation button so adjust the bar heights, 

clr.w d3 ; us* d3 as a channel counter 

lea Theta0,a3 

CGLoop2l: 

cmp.w #CHANNELS,d3 
beq !nvBut2 

clr.w -(sp) 
bsr GIN 

; the gain (the limit is not affected) 

move.w(a3),d0 ; get theta 

sub.w (sp)+,dO ; subtract the old GIN 

move.wd0,(a3) ; store it back 

; go to the next channel 

lea 4(a3),a3 

add.w #l,d3 
bra CGLoop2f 

lnvBut2: 

clr.w -(sp) 
move.l lAControl,*(sp) 

_GetCtlValue 
move.w(sp)+,d3 
not.w d3 
and.w #1 ,d3 
move.! WhichControl,-{sp) 
mova.wd3,-{sp) 

_SetCtiValue 

clr.w d3 

lea Theta0,a3 

CGLoop22: 

cmp.w #CHANNELS,d3 
beq UD Screen 

clr.w -(sp) 
bsr GIN 

move.w(a3),d0 
add.w (sp)+,dO 
move.wd3,-(sp) 
move.wdO,-(sp) 
bsr Valid Gain 

move.w(sp)+,(a3) 

; go to the next channel 

lea 4(a3),a3 

add.w #1 ,d3 
bra CGLoop22 

UDScreen 

bsr WDHAPSDraw 


; use d3 as a channel counter 


; get theta 

; add the new GIN 
; now clip the gain as necessary 
; the new gain 

; store it 


; GatCtIVaiue returns a word 

; now value is in d3 
; invert the status. 

; set it to the new value. 


n 
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bra NoChan 

; invert the control value 
OtherBut: 

cir.w -(sp) 

move.! WhichControl,*(sp) 

_GetCtlVaiue 

move.w(sp)+,d3 

not.w d3 

and.w #1,d3 

move.! WhichControl,*<sp) 

move.wd3,-(sp) 

_SetCt!Value 
; Was it the Field button? 

move. I FieidControl,d4 
lea WhichControl,a4 

cmp.l (a4),d4 
bne NotField 

; Otherwise invert off the Probe mike 
ctr.w -(sp) 

move. I ProbeControl.-(sp) 

_GetCtlVaiue 

move.w(sp)+,d3 

not.w d3 

and.w #1,d3 

move.! ProbeControl,-{sp) 

move.wd3,-{sp) 

_SetCtlValue 
bra NoChan 

; Was it the Probe button? 

NotField: 

move. I ProbeControl.d4 
lea WhichControi,a4 

cmp.l {a4),d4 
bne NoChan 

; Otherwise invert the Field mike 
cir.w -(sp) 
move. I FieldControl,-{sp) 
_GetC tlVaiue 
move.w($p)+.d3 
not.w d3 
and.w #1,d3 
move.} FieldControl,-{sp) 
move.wd3,-(sp) 

_SetCtlValue 

bra NoChan 

ChanCheck: 

move.w#0,d4 
lea Theta0,a4 

FindChan: 

cmp.w #CHANNELS.d4 
beq NoChan 

; Is it a theta bar? 


; GetCtl Value returns a word 

; now value is in d3 
; invert the status. 

; set it to the new value. 

; it not then forget it 
; GetCtlValue returns a word 

; now value is in d3 
; invert the status 

; turn off Probe button 


; if not then forget it 
; GetCtlVaiue returns a word 

; now value is in d3 
; invert the status 

; turn off Probe button 

count thru channels 

draw each channel 
done yet? 


75 * 



99 


5,724,433 


100 


mave.wd4,-(sp) 
bsr CalThetaRect 

clr.w -(sp) 
move. I 66(sp),-(sp) 
pea TRect 
_PtlnRect 
tst.w (Sp)+ 
bne FoundTheta 

; Is it a phi bar? 

lea 2(a4),a4 

move.wd4,-(sp) 
bsr CalPhtRect 
clr.w '(sp) 
move. I 6fi(sp),-(sp) 
pea TRect 
_PtlnRect 
tst.w {so)+ 
bne FoundPhi 
lea 2(a4),a4 

add.w #t,d4 
bra FindChan 

; a4 points to Theta. d4 contains the channel number. 

FoundTheta: 

pea ThetaPat 

_PenPat 

move.w(a4),d3 ; hold onto original theta 

While the button is down move the bar around, changing theta 
FTLoop: 

clr.w -(sp) ; Make room for result 

_StillDown ; Is the button still down? 

tst.w (sp)> 

beg NoChan ; If not then exit otherwise... 

; Get the point 

pea TPoint 

_GetMouse ; Get mouse location 

, First Erase Old Bar 

move.w#patBic,-(sp) 

_PenMode 
move.wd4,-(sp) 
bsr CalThetaRect 

pea TRect 

_PaintRect 

; Now change the theta parameter 

move.w64(sp),d5 ; the vertical coordinate of start point 

sub.w TPoint.dS ; original y * current y 

; this will be a negative value if they move down 

move.wd3,(a4) ; restore original theta 

add.w d5,(a4) ; change theta 

; is it OK? 

move.wd4,-(sp) ; channel # 

move.w(a4),-{sp) ; gain 

bsr ValidGain ; make sure gam is in range 

mcve.w(sp)+.(a4) 


7k 


; Calculate theta rectangle 
; make room for result 
; push mouse point 
; theta rect in TRect 


; Calculate theta rectangle 
; make room for result 
; push mouse point 
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; Now draw the new bar 
ThDrBar: 

move.w#patOr,-(sp) 

_Pen Mode 
move.wd4,-(sp) 
bsr CalThetaRect 

pea TRect 

_PaintRect 

; Now update the chart value. 

cmp.w (a4),d3 ; is there any difference? 
beq FTLoop ; tf not then don’t bother 

move. w#1 ,-<sp) ; gain column in chart 

move.wd4.-{sp) ; row is channel # 

add.w #1 ,(sp) ; + 1 

move.w{a4),-{sp) ; value 

bsr PrintVal 

bra FTLoop 

; a4 points to Phi, d4 contains the channel number. 

FoundPhi: 

pea PhiPat 

_Pen Pat 

move.w(a4),d3 ; store old Phi 

; While the button is down move the bar around, changing theta 
FPLoop: 

clr.w -(sp) ; Make room for result 

_StiliDown ; Is the button still down? 

tst.w {sp>+ 

beq NoChan ; If not then exit otherwise... 

; Get the point 

pea TPoint 

_GetMouse ; Get mouse location 

; First Erase Old Bar 

move.w#patBic,-{sp) 

_PenMode 
move.wd4,-|sp) 
bsr CalPhiRect 

pea TRect 

_PaintRect 

; New change the Phi parameter 

move.w64{sp),d5 ; the vertical coordinate of start point 

sub.w TPoint,d5 ; original y - current y 

; this will be a negative value if they move down 

move.wd3,(a4) ; restore original Phi 

add.w d5,(a4) ; change Phi 

; is it OK? 

mQve.wd4,-{sp) ; channel # 

move.w(a4),-(sp) ; limit 

bsr VaiidLimit ; make sure limit in range 

move.w(sp)+,{a4) 

; Now draw the new bar 
PhiDrBar: 

; Now draw the new bar 

move.w#patOr,-(sp) 


17 
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_PenMode 
move.wd4,-(sp) 
bsr CalPhiRect 

pea TRect 

_PaintRect 

Now update the chart vaiue. 

cmp.w (a4).d3 ; is there any difference? 


NoChan: 


beq FPLocp 

move.w#2,-{sp) 
move.wd4,-fsp) 
add.w #1 ,(sp) ; ♦ 1 
move.w(a4),-(sp) 
bsr PrintVai 

bra FPLoop 


If not then don't bother 
limit column in chart 
row is channel * 

vaiue 


_PenNormal 

bsr WDHAPSSetParam ; update any changes made to the WDHA. 

movem.) <spj+,dO-d7/aO*a6 

move.) {sp)+,(sp) ; get rid of param 

rts 


; Name: WDHAPSSetParam 

; Function: This routine sets the WDHA to the parameters set in the WDHA 
: window. 

; Input: None 
; Output: None 
WDHAPSSetParam: 

movem. I d0*d7/a0-a6.-(sp) ; save registers 

\* Fill ail fields of the paramrec except the gain/input select word. 

bsr CaicGainsUmits; calculate the gains and limits. 

; Now calculate the select word by looking at the control buttons. 

lea paramrec, a4 ; get the gain/input select word 

nnov9.w16(a4),d4 ; get the gain input select word 

SPIA: ; set input attenuation bit 

clr.w -(sp) ; GetCtIValue returns a word 

move.! !AControl,-(sp) ; the handle 
^GetCtIValue 
tst.w (sp)*- 
beq SPNolA 

SPDolA: 

bset.l #INPUT,d4 
bra SPOA 


SPNolA: 

bclr.l #INPUT,d4 

SPOA: ; set output attenuation bit 

clr.w *(sp) ; GetCtIValue returns a word 

move.! OAControl,-(sp) ; the handle 

^GetCtIValue 
tst.w (sp) + 
beq SPNoOA 

SPDoOA: 

bset.l #OUTPUT,d4 
bra SPField 


SPNoOA: 
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bclr.l ((OUTPUT, d4 

SPField: ; set the field mike bit 

clr.w -(sp) ; GetCtlValue returns a word 

move.! FieidControl,-{sp) ; the handle 

_GetCll Value 
tst.w (sp}+ 
oeq SPNoFieid 

SPDoFieid: 

bset.l #FIELD,d4 
bra SPProbe 

SPNoFieid: 

bclr.l #FlELD,d4 

SPProbe: ; set the probe mike bit 

clr.w -(sp) ; GetCtlValue returns a word 

move. I ProbeControi.-(sp) ; the handle 

_G etc tt Value 
tst.w (sp)+ 

beq SP NoProbe 

SPDoProbe: 

bset.l #PROBE.d4 
bra SPSendParams 

SPNoProbe: 

bclr.l #PROBE,d4 
SPSandParams: 

move.wd4.16(a4) ; store the modified select word. 

; Now send the parameters to the WDHA 
lea paramrec.aO 

bsr SetParam 

; now wait a little while the WDHA does it's thing, 
move.! UMOOOO.dl 

SPWait: 

sub. I #1,d1 

bne SPWait 

; Now put the WDHA in either hearing aid state or idle state depending on 
; the status of the "Hearing Aid On" button. 

clr.w -(sp) ; GetCtlValue returns a word 

move.l AidControl,-{sp) ; the handle 

^GetCtlValue 

tst.w (sp)* 

beq SPAidOff 

move.w#-1 ,d0 ; go to hearing aid mode 

bra SPSetMcde 

SPAidOff: 

move.w#-1 OO.dO ; go to idle mode 

SPSetMode: 

jsr scsiwr ;send mode code to WDHA 

SPDone: 

movem.i (sp)*,d0-d7/a0-a6 ; restore registers 

rts 

; Name: CalcGainsLjmits 

; Function: Compute the gains and limits Helds of the paramrec from 


IQ 
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the heights of the theta and phi bars of the bar graph, and the status of 
the attenuation control buttons. 

Input: None 
Output: None 

If any of the gains or limits produce an out of range value the 
variable called ’Clipped* will have a non-zero value upon return. 
CalcGainsLimits; 

aO-a6/dO-d7,-(sp) 

Clipped, al 


movem. 

lea 

clr.w 

lea 

lea 

lea 


(al) 


ThetaO, a4 * 
paramrec,a2 
He.a3 


move.w#CHANNELS,d6 


OCLoop: 


move.w(a4),d4 
sub.w (a3),d4 


sub.w 
sub.w 
clr.w 
bsr 
sub.w 
clr.w 
bsr 
sub.w 

; Now calculate the limit 

OoUmit: 

. move.w2(a4),d5 

sub.w d4,d5 
sub.w 
clr.w 
bsr 
sub.w 


8(a3),d4 
#80, d4 
•(sp) 

GIN 

(sp)+.d4 

*{sp> 

gcxtt 

(sp)+,d4 


8(a3),d5 
-(sp) 


; thetaO here 
; gair>0 here 

loop through four channels 

: get thetaO (* So) 

; subtract He 

; subtract Hr 

: subtract GIN 
; subtract GOUT 


; Get height (-So lim) in dS 
Subtract Gd 

; subtract Hr 
; subtract GOUT 


GOUT 


(sp)+,d5 
; Now convert both to linear. 
; First the gain 
ToLinear: 

; but first store Gd and Ld 


move.w 

move.w 

lea 

move.w 


d4,(a6) 

d5.2(a6) 


; store Gd 


store Ld 


d4,(a0) 


argl ,a0 


store gain (dB) in argt 


pea 

argl 

;dB gain 

pea 

arg4 

:fpdB gain 

R2X 


convert from integer to extended fp 

pea 

(p20d8e ;20 * log base 10 of e « 8.685889638 

pea 

arg4 

;fpdB gain 

fdivx 


;db/fp20dbe (result in arg4) 

pea 

arg4 


fexpx 


;base e exponential (db ratio in arg4) 

pea 

twoexi4 ;scale it *2E16 to convert it to fixed point 

pea 

arg4 


fmulx 



pea 

arg4 


pea 

argl 



SO 
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fx2t ;convert extended to integer 

move.wargt ,(a2) ; store the gain 

move.wargt ,dl ; get the gain 

cmp.w #t 6384,d1 

bis DCDolimit 

move.wfM 6384,(a2) ; store the gain 

lea Clipped, a 1 

add.w #i,(at) 

; Now the limit 
DCDolimit; 

lea argt.aO 

move.w d5,( aO) ; store limit (dB) in argl 


pea 

argl 

;dB limit 

pea 

arg4 

;fpd8 limit 

FI2X 


;convert from integer to extended fp 

pea 

fp20dBe 

;2Q * log base 10 of e * 8.685889838 

pea 

arg4 

;fpdB limit 

fdivx 

;db/fp2Qdbe (result in arg4) 

pea 

arg4 


fexpx 

:base 

e exponential (db ratio in arg4) 

pea 

arg4 


pea 

argl 


pea 

Iwoexl 4 

;scaJe it *2E16 to convert it to fixed point 

pea 

arg4 


fmulx 



fx2i 


;co nvert extended to integer 

move.warg1,2(a2) 

; store the limit 


bpl DCFmLoop 

move.w#32767,2(a2) 

; Store them in the paramrec 


DCFinlocp: 

lea 

4(a4),a4 

; go to next theta/phi pa<r. 

lea 

4(a2),a2 

; go to next gain/limit pair 

lea 

2{a3),a3 

; go to next He and Hr 

subq.b #1,d6 
bne 

OCLoop 


movem.l 

{Sp)>,a0*a6/d0*d7 


rts 




; Name: GIN 

; Function: This routine returns the input gain as determined by the 
; input attenuation control button, either +0 (on), or +t8 (off). 

; Input: None 

; Output: A word on the stack is titled with the result (the user pushes this) 
GIN: movem.l aO-a6/dO-d7,-($p) 

; if input attenuation is on then return 0 otherwise 18 

clr.w -(sp) ; make room for result 

move. I lAControl,-(sp) 

jSetCtlValue 

tst.w (sp)+ 

bne GinOn 

move.wtl B,64(sp) 

bra GinOone 


GinOn 
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move.w#0.64(sp) 

GinDone 

movem.l (Sp)+,a0-a6/d0-d7 

rts 

; Name: GOUT 

; Function: This routine returns the output gain as determined by the 
; output attenuation control button, either -34 (on), or -9 (off), 

; Input: None 

; Output: A word on the stack is filled with the result (the user pushes this) 
GOUT: movem.l aQ-a6/dO-d7,-{sp) 

; if output gain is on then return -34 otherwise -9 

clr.w -(sp) ; make room for result 

move.i OAControl.-(sp) 

_GetCtlValue 

tst.w (sp)+ 

bne GoutOn 

move.w#-9,64(sp) 

bra GoutOone 

GoutOn 

move.w#-34,64(sp) 

GoutOone 

movem.l (Sp)+,a0-a6/d0-d7 

rts 

; Name: GMAX 

% ; Function: This routine returns the maximum gain for the given channel. 

; Input: The channel number is passed on the stack as a word (0-3). 

; Output: The result is on the stack upon return. 

; ***Note: You do not have to make room for the resuit on the stack. 
GMAX: 

movem.) aO-a6/dO-d7,-(sp) 

move.w#60,d0 ; hold result in dO 

clr.w -(sp) 

bsr GIN 

add.w {sp)+,dO ; add GIN 

clr.w -(sp) 

bsr GOUT 

add.w (sp)+,dO ; add GOUT 

lea He.aO 

move.w64(sp),d1 ; get channel # 

asi.w »1,d1 : *2 for words 

add.w (aO,d1.w),dO ; add He 

add.w 8(aO,d1 .w),dO ; add Hr 

move.wd0,64(sp) ; write the result over the parameter 

movem.l (sp)+,a0-a6/d0-d7 

rts 

: Name: VaiidGain 

; Function: This routine dips the given gain (bar height) as needed for the 
; given channel. 

; Input: The channel number and gain passed on the stack as words. 

; Output: The result is on top of the stack upon return. 

; *~Note: You do not have to make room for the result on the stack. 
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VatidGain: 

movem.l aQ-a6/dO-d7,-(sp) 

move.w66{sp),d0 ; get the channel # 

mova.w64(sp),d1 ; get the undipped gain 

cmp.w #2,d1 ; IS it bigger than the minimum height? 

bge GainOKI 

move.w#2,dt ; make it bigger 

bra VGOone 

GainOKI: 

move.wdQ,-(sp) ; get GMAX 

bsr GMAX 

cmp.w (sp)+,d1 
We VGOone 

move,w-2(sp),d1 ; make it GMAX 

VGDone: 

move.wdt ,66(sp) 

movem.l (sp) + ,aO-a6/dG'd7 

move.! (sp),2(sp) ; move return address 

tst.w (sp)+ : get rid of extra word 

rts 

; Name: LMAX 

; Function: This routine returns the maximum limit for the given channel. 

; Input: The channel number is passed on the stack as a word (0-3). 

; Output: The result is on the stack upon return. 

; ## *Note: You do not have to make room for the result on the stack. 
LMAX: 

movem.l aO-a6/dO~d7,-(sp} 

clr.w *{sp) 
bsr GOUT 

move.w(sp)+,dO ; add GOUT 

iea Hr r aO 

move,w64.(sp),dt ; get channel # 

asl.w #1 r d1 ; *2 for words 

add.w (aO.dl .w , ) J dO ; add Hr 

move.wd0,64(sp) ; write the result over the parameter 

movem.l (sp)+,a0-a6/d0-d7 

rts 

; Name: ValidUmit 

; Function: This routine clips the given limit (bar hesght) as needed for the 
given channel. 

; Input: The channel number and gain passed on the stack as words. 

; Output: The result is on top of the stack upon return. 

; ***Note: You do not have to make room for the result on the stack. 
ValidLimit: 

movem.l a0-a6/d0-d7,-(sp) 

move,w66(sp),dO ; get the channel # 

move.w64(sp),d1 ; get the unclipped limit 

cmp.w #2,dt : IS it bigger than the minimum height? 

bge LimitOKl 

move.w#2,dt ; make it bigger 

bra VUDone 

LimitOKl: 


& 
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mov8.wd0,*{sp) 

; get LMAX 

bsr 


LMAX 


cmp.w 

(sp)+,di 


ble 


VLDona 


move.w 

-2(sp),d1 

; make it LMAX 

VLDone: 




move.wdl ,66{sp) 


movem 

1 

(sp)+,a0*a6/d0-d7 

move.l 

(sp),2<sp) 

; move return address 

tst.w 

(sp}+ 


get rid of extra word 

rts 





WDHAPS data declarations 

j .align 4- 

; align to long word boundary 

WDHAPSPtr: 

DC.L 

0 

WDHAPS WindowPlr 

AidControl; 

DC.L 

0 

Hearing Aid On Control 

lAControl: 

DC.L 

0 

Input Attenuation Control 

OAControl: 

DC.L 

0 

Output Attenuation 

FieldControl: 

DC.L 

0 

Field Mike Control 

ProbeControl: 

DC.L 

0 

Probe Mike Control 

.align 2 

; align to word boundary 

ThetaO:DCW 

50 



PhiO: DC.W 

70 



Thetal :DCW 

50 



Phil: DC.W 

70 



Theta2:DC.W 

50 



' Phi2: DC.W 

70 



Theta3: DC.W 

50 



Phi3: DC.W 

70 



| paramrac: 

dc.w 

16384 

;WDHA parameter record 
;channel 0 gain 


dc.w 

32767 

;channel 0 limit 


dc.w 

16384 

;charmeJ 1 gain 


dc.w 

32767 

;channel 1 limit 


dc.w 

16384 

;channet 2 gain 


dc.w 

32767 

;charmel 2 limit 


dc.w 

16384 

;channel 3 gain 


dc.w 

32767 

;channel 3 limit 


dc.w 

4224 

;gain/input select word 


He: 

dc.w 

-100 

;channel 0 


dc.w 

-9$ 

;channet 1 


dc.w 

*90 

;channel 2 


dc.w 

*84 

’.channel 3 

; The 

He table must(1) 

follow the He table. 

Hr: 

dc.w 

121 

;channel 0 


dc.w 

117 

.■channel 1 


dc.w 

127 

;channe! 2 
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dc.w 1 20 channel 3 


WDHAPSBounds: 

oc.w 

DC.W 

DC.W 

DC.W 


; Bounding rect for window 

PSlnitY 

PSInitX 

PSInitY+PSGHeight+PSGImtY+2'PSTxtSize+4 

PSRight 


WDHAPSGraph: 

DC.W 

DC.W 

OC.W 

DC.W 


; bounding rectangle for graph 
PSGInitY 
PSGInitX 

PSGIniiY+PSGHeight 
P SGI nitX+PSG Width 


WOHAPSChart: 


DC.W 

DC.W 

DC.W 

DC.W 


; bounding rectangle for chart 
PSCInitY 
PSCInitX 

PSC In itY+PSGH eight 
PSCInitX+PSCWidth 


TRect: 

DC.L 0 
DC.L 0 

TPoint: DC.L 0 

WhichControl: DC.L 0 


;For calculating various rectangles. 

;For calculating mouse change. 

; A control handle, for temporary storage. 


ThetaPat: DC.8 SAA.SSS.SAA.SSS.SAA.SSS.SAA.SSS 

PhiPat: OC.B $55.$ AA.SSS.SAA.SSS.SAA.SSS.SAA 


NumBuf: DCB.B 64,0 ; Buffer for number conversion 


argl 

arg2 

arg3 

arg4 

arg5 

twoexl 4 
fp20dBe 


dcb.w 

dcb.w 

dcb.w 

dcb.w 

dcb.w 

dc.w 

dc.w 


8,0 integer buffer 
8,0 extended floating point buffer 

8,0 extended floating point buffer 

8,0 extended floating point buffer 

8,0 extended floating point buffer 

$400d, $8000, $0000, $0000, $0000 
$4002, $8af9,$db22,$d0e5, $6042 


dc.w 


Clipped 


0 
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WDHAPS.hdr 

This file must be induded it your program uses the 
WOHA Parameter Settings window. 

XP£F WDHAPSOpen 
XREF WOHAPSaose 
XREF WOHAPSShow 
XREF WDHAPSHWe 
XREF WDHAPSDraw 
XREF WDHAPSControl 
XREF WDHAPS1S 
XREF WDHAPSSetParam 


u 
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; file WDHATC.Asm 

Include MacTraps.D 
Include ToolEqu.D 
Include SysEquX.D 
Include QuickEquX.D 
Include SANEMacs.txt 
Include MDS2:WDHA.hdr 
Include MDS2: WDHAMac.txt 
Include MDS2:WDHASCSI.hdr 


; WDHA Test/Calibrate Window Manager 

This package contains routines to manipulate the WDHA Test/Calibrate 
; window, which allows you to do pure tone audiometry via the WOHA. 

The window contains text boxes which allow the user to change the 
; parameters to the test procedure, as welt as the control boxes (as in the 
; parameter settings window) to determine the gain/select input word and 
; the on/off status of the hearing aid. 

; External Definitions-—— 

XDEF WDHATCOpen 
XDEF WDHATCCIose 
XDEF WDHATCShow 
XDEF WDHATCHide 
XDEF WDHATCDraw 
XDEF WDHATCControl 
XDEF WDHATCldle 

XDEF WDHATCKey 

XD& WDHATCIS 
XDEF WDHATCDoTest 

; Constant Definitions 

; TC * The Test/Calibrate Window 

TCInitX 6QU 30 ; initial X coord (global) of upper left corner 

TCInitY ECU 50 ; initial Y coord (global) of upper left corner 

TCRightEQU 448 

TCTxtSize EQU 12 

; TCCtl m The Control Buttons 
TCCtllmtX ECU 258 

TCCtllnitY EQU 15 

TCCtlFHeight BCU 24 

; Text Edit Box Constants 
ToneBursts ECU 0 

RiseCount BCU 1 

OnCount ECU 2 

FailCount EQU 3 

OffCount BCU 4 

Frequency EQU 5 

Attenuate BCU 6 


Si 

! 
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TextBoxes EQU 7 ; There are seven boxes 

; Subroutine Declarations 

; Name: WDHATCOpen 

; Function: Call this routine to create and display the TC Window. 

; input: None 
: Output: None 
WDHATCOpen: 

movem.l dO-d2/aQ-a6,-(sp) : save registers 

; Set up document window. 

; FUNCTION NewWindow {wStorage; Ptr; boundsRect: Reel; 

title: Str255; visible: BOOLEAN; 
procID: INTEGER; behind: WindowPtn 



goAwayFlag: BOOLEAN; 


refCon: Longlnt) : WindowPtr; 

SUBQ 

#4,SP 

Space for function result 

CLR.L 

-<SP) 

Storage for window (Heap) 

PEA 

WDHATCBounds 

Window position 

PEA 

’WDHA Test/Calibrate* 

Window title 

MOVEB 

#255. -(SP) 

Make window visible 

MOVE 

#rDocProc»*{SP) 

Standard document window 

MOVEL 

•-l.-(SP) 

Make it the front window 

move.B 


Window has goAway button 

CLRX 

•(SP) 

Window refCon 

JMewWindow 


Create and draw window 

lea 

WDHATCPtr,a4 


MOVEL 

(SP)+,(a4) 

Save handle for later 

MOVEL 

(a4),-(SP) 

; Make sure the new window 

; PROCEDURE SetPort (gp: GrafPort) 


^SetPort 

; Make 

it the current port 

; Add the text boxes. 



bsr 

TCAddBoxes 


; Add the control buttons. 


bsr 

TCAddControls 


; Draw the content region 


bsr 

WDHATCDraw 


movem.l 

(Sp)+,d0-d2/a0-a6 ; Restore registers 


RTS 

; Name: WDHATCCIose 

; Function: Call this routine to destroy the TC Window and remove it from 
: the screen. 

; Input: None 
; Output: None 
WOHATCCIose: 

movem.l dO-d7/aO-a6,*(sp) ; save registers 

move.! WDHATCPtr,-(sp) 

_Ki1lControls 
; Dispose Window 

move.! WDHATCPtr.-(sp) 

_DisposWindow 

movem.l (Sp)+,d0*d7/a0-a6 

rts 




: restore registers 
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; Name: WDHATCShow 

; Function: This routine makes the TC window visible and frontmost. 

; Input: None 
; Output: None 
WDHATCShow: 

movem.l d0*d7/a0-a6.-(sp) ; save registers 

; Bring it to the front 

move. I WDHATCPtr-(sp) 

_BringToFront 
; Show Window 

move. I WDHATCPtr.-{sp} 

_ShowWindow 

move. I WDHATCPtr,-{sp) 

_SelectWindow 

movem.l (sp)+,d0-d7/a0-a6 ; restore registers 

rts 

; Name: WDHATCHide 

; Function: This routine makes the TC window invisible, removing it from the 
; screen (but not destroying it). 

; Input: None 
: Output: None 
WDHATCHide: 

movem.l d0-d7/a0-a6,-(sp) ; save registers 

; Hide Window 

move. I WDHATCPtr,-(sp) 

_HtdeWindow 

movem.l (Sp)+,d0-d7/a0-a6 ; restore registers 

rts 

; Name: WDHATCOraw 

; Function: This routine draws the TC window's contents. 

; Input: None 
; Output: None 
WDHATCOraw: 

movem.l d0*d7/a0-a6,*(sp) ; save registers 

lea WDHATCPtr,a4 ; Pointer on stack 

MOVE.L (a4),-(SP) 

; PROCEDURE SetPort {gp: GrafPort) 

_SetPort ; Make it the current port 

; Draw the text buttons. 

bsr TCDrawBoxes 

; Draw the control buttons. 

move. I WDHATCPtr.*(sp) ; the window ptr 
_DrawControls 

movem.l (Sp) + ,d0-d7/a0-a6 ; restore registers 

rts 

; Name: TCAddControts 

; Function: This routine adds the TC window's controls. 

; Input: None 
; Output: None 
TCAddControls: 

movem.l d0-d7/a0*a6,-(sp) 


89 


; save registers 
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Set up the controls bounding rectangle, 
lea TRect,a4 

rnove.w#TCCtlJnity+0*TCCtlFHeight I (a4) 
move.w#TCCtllnjtX,2(a4) ; store x coord 
move.w#TCCtlin«tY+0'*TCCUFHejght+2Q 1 4{a4) 
move.w#TCRight.6(a4) ; store x coord 

Push parameters for NewControl 

clr.l * (sp } ; NewControl returns a handle 

move. I WDHATCPtr,«{sp) ; the window ptr 


store y coord 

; store y coord 


the rectangle bounding the control 
title 

value 
; min 
; max 

; check box proc id 
; refcon not used 


pea TRect ; 

pea ‘Heanng Aid On' ; 

move.b #TRUE,-(sp) ; visible 

move.w#0,*(sp) 
move.w#O t -(sp) 
move.w#1 ,*{sp) 
move.w#1 ,-(sp) 
move.) #0,-(sp) 

Call NewControl 

^NewControl 

lea AidControl,a3 

move.! (sp}+.(a3) ; store the result 

Set up the controls bounding rectangle, 
lea TRect, a4 

move.w#TCCtHnitY+1*TCCtlFHeight,(a4) ; store y coord 
move.w#TCCtllnitX,2<a4) ; store x coord 

move.w#TCCtllnitY+fTCCtlFHeight+20,4{a4) ; store y coord 

move.w#TCRight,6(a4) ; store x coord 

Push parameters for NewControl 

clr.l *{sp) ; NewControl returns a handle 

move.t WDHATCPtr,*{sp) ; the window ptr 


; the rectangle bounding the control 
; title 


value 

min 

max 

check box proc id 
refcon not used 


store the result 


pea TRect 

pea 'Input Attenuation' 

move.b #TRUE,-(sp) ; visible 

move.w#0,*(sp) 
move.w#0,-(sp) 
move.wtt ,«(sp) 
move.w#T ,*(sp) 
move.l #0,-($p) 

Call NewControl 
^NewControl 

lea IAControl.a3 

move.l (sp)+,(a3) 

Set up the controls bounding rectangle, 
lea TRect,a4 

move.w#TCCtl!nitY+2*TCCtlFHeight4a4) 
move.w#TCCtllnitX,2(a4) ; store x coord 

move.w#TCCtllnitY+2*TCCtlFHeight>20 I 4(a4) 
move.w#TCRight,S(a4) ; store x coord 

Push parameters for NewControl 

clr.l -{sp) ; NewControl returns a handle 

move.l WDHATCPtr.-(sp) ; the window ptr 

pea TRect ; the rectangle bounding the control 

pea 'Output Attenuation* ; title 

move.b #TRUE,-(spf ; visible 


store y coord 


store y coord 
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move.wiffO, -{sp) ; value 

move.w#0,-{sp) ; min 

move.w#1 ,*(sp) ; max 

move.wUM ,-(sp) ; check box proc id 

move.! #0,-(sp) ; refcon not used 

Call NewControl 

^NewControl 

lea OAControi,a3 

move.l (sp)+,(a3) ; store the result 

Sat up the controls bounding rectangle, 
lea TRect,a4 

move.w#TCCtllnitY+3*TCC!iFHeight,(a4) 
move.w#TCCttlnitX,2(a4) ; store x coord 
move.w#TCCtllnitY+3*TCCtlFHe$ght+20,4(a4) 


store y coord 


move.w#TCRight,6(a4) 
Push parameters for NewControl 
clr.l -(sp) 

move.l WDHATCPtr.'(sp) 
pea TRect 

pea ’Field Mike' 

move.b #TRUE,-(sp) 
move.w#1 , -(sp) 
move.w#0,-(sp) 
move.w#1 ,-<sp) 
move.w#2.-($p) 
move.l *0,-(sp) 

Call NewControl 


store y coord 


store x coord 


; NewControl returns a handle 
the window ptr 

; the rectangle bounding the control 
; title 


visible 


make Field mike on as the default 

min 

max 

radio button proc id 
refcon not used 


^NewControl 

lea FietdControi,a3 

move.l (sp)+,(a3) ; store the result 

Set up the controls bounding rectangle, 
lea TRect, a4 

move.w#TCCtllnilY+4*TCCtlFHeight,(a4) ; store y coord 
move.w#TCCtllnitX,2(a4) ; store x coord 

move.w#TCCliinitY+4*TCCtlFHeight+20,4(a4) ; store y coord 

mova.w#TCRight,6(a4) ; store x coord 

Push parameters for NewControJ 

clr.l -(sp) : NewControl returns a handle 

move.l WDHATCPtr,-{sp) ; the window ptr 

pea TRect 

pea 'Probe Mike’ 

move.b #TRUE,«{sp) ; visible 

move.w#0,-(sp) ; 

move.w#0,-(sp) ; 

mave.wat ,-(sp) ; 

move.w#2,-($p) ; 

move.l #0,-{sp) ; 

Cal) NewControl 
JslewControi 

lea ProbeControl,a3 

move.! (sp)+,(a3) 

Set up the controls bounding rectangle, 
lea TRect, a4 

move.w#TCCtllnitY+5*TCCtlFHeight,(a4) 


the rectangle bounding the control 
title 

vaiue 

min 

max 

radio button proc id 
refcon not used 


store the result 


; store y coord 
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mova.w#TCCtllnitX,2(a4) ; store x coord 

mov8.w#TCCtllnitY+5*TCC?IFHeight+24,4(a4) ; store y coord 

move.w#TCCtllnitX+40,6(a4) ; store x coord 

Push parameters for NewControi 

clr.l -(sp) ; NewControi returns a handle 

move.! WDHATCPtr.-(sp) ; the window ptr 

pea TRect ; the rectangle bounding the control 

pea 'Start' ; title 

; visible 


move.b #TRUE,-(sp) 
mave.w#0,-(sp) 
move.w#0.*fsp) 
move.w#Q,-{sp) 
mcve.w#Q,-{sp) 
move. I #0,-(sp) 

Call NewControi 

^NewControi 

lea StartControl.a3 

move.l (sp) + ,(a3) 
movem.l (Sp)+,d0-d7/a0-a6 

rts 


value 

min 

max 

simple button proc id 
refcon not used 


store the result 


TCAddBoxes: 

movem.l dQ-d7/aO-a6,-(sp) 

lea TextHandles,a3 

lea TextRects,a4 

move.w#ToneBur$ts,d4 
TCABLoop: 

cmp.w #TextBoxes,d4 
beq TCABOone 

; TENew 

; Get Destination Rect in TRect 

lea TRect, a2 

move.l (a4),{a2) 
move.l 4{a4),4(a2) 

; Make it a little smaller 

pea TRect 

move.w#1 ,-{sp) 
move.w#i ,-(sp) 

JnsetRect 
; Call TENew 


clr.i 

*(sp) 

; make room for handle result 

pea 

TRect 

; dest rect 

pea 

TRect 

; view rect 


_TENew 

move.! (sp)+,(a3)+ 
lea 8(a4),a4 

add.w #i.d4 
bra TCABLoop 

TCABDone: 

lea TextHandles,a4 

; Default Tone Burst is 3 

pea '3' ; incorporate the text 

add. I #1 , (sp) ; move past the length 

move.l # 1 , *{sp) ; It's 1 character long 
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move,! (a4)+,-(sp) 

_TEinserf 

; Default Rise Tima is 309 

pea *309‘ 

add. I # 1 , (sp) 

move.l #3,»{sp) 
move.! (a4)+,-(sp| 
_TElnsert 

; Default Signal On is 2455 

pea ’2455* 

add.) #1 ,(sp) 

move.! #4,-(sp) 
move.l (a4)+,-(sp) 
_TEInsert 

; Default Fail Time Is 309 

pea '309' 

add. I #l,(sp) 

move.l #3,-(sp) 
move.) (a4)+,-(sp) 
_TEinsert 

; Default Signal Off is 3069 

pea '3069' 

addJ fM , (sp) 

move.l #4, -{sp | 
move.l (a4)+,-{sp) 
_TEinsert 

; Defauit Frequency Is 2000 

pea *2000' 

add. I #1,(sp) 

move.l #4, -(sp) 
move.l (a4}+,-(sp) 
_TEinsert 

; Default Attenuation is 20 
pea *20' 

add.! #1,(sp) 

move.! #2,-(sp) 
move.l (a4)+,-(sp) 

_TE insert 
movem.J 
rts 


; incorporate the text 
; move past the length 
; It's 3 characters long 


; incorporate the text 
; move past the length 
; It's 4 characters long 


; incorporate the text 
; move past the length 
; it's 3 characters long 


; incorporate the text 
; move past the length 
; It's 4 characters long 


; incorporate the text 
; move past the length 
; tt*s 4 characters long 


; incorporate the text 
; move past the length 
; It’s 2 characters tong 


(Sp)+,d0-d7/a0~a6 


; Name: WDHATCIdle 

; Function: This routine blinks the carat of the active text box. It should be 
, called each time through your main event loop. 

; Input: None 
; Output: None 
WDHATCIdle: 

movem.l a0-a6/d0«d7 < -{sp) 

lea TextHandles,a4 

move.wWActive,d4 ; which one is active? 

bmi TCINoneActive ; -1 means none 

asl.w #2,d4 ; *4 for long offset 

move.! (a4,d4.w),-(sp) 

_TEldJe 
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TCINoneActive; 

movem.) (Sp)+,a0-a6/d0-d7 

rts 

; Name:WDHATCKey 

; Function: Call WDHATCKey when the TC window is active and a keypress 
; event is active. 

: Input: The char (from the event's message field) as a word. 

; Output: None 
WDHATCKey: 

movem.l aQ-a6/dO-d7,*(sp) 

lea TextHandles,a4 

move.w WActive,d4 ; which one is active? 

bmi TCKNoneActive ; -1 means none 

asl.w #2.d4 ; *4 for long offset 

move.w64(sp).-(sp) ; push the char 

move. I (a4,d4.w),-(sp) 

JTEKay 

TCKNoneActive: 

movem.l (sp)+,aO-a6/dO-d7 

; remove parameter from stack 

move. I (sp),2(sp) ; move return address 

clr.w (sp)+ ; remove extra space 

rts 

; Name: WDHATCIS 

; Function: This routine returns a Boolean telling whether or not 
; the given window pointer is the TC window's pointer. 

* ; Input: A window painter (passed on the stack) 

; Output: a word, TRUE or FALSE (defined in WDHA.hdr) returned on the stack. 
; "Note: You do not have to push a word for the result of this routine 
WDHATCIS: 



movem.l 

a4/d4,-(sp) 

; save registers 


move.l 

8(sp),a4 

; get return address in a4 


move.l 

1 2(sp),d4 

; get WindowPtr in d4 


cmp.l 

WDHATCPtr,d4 

; Was it our window? 


beq 

IS10 

; It Is 


move.w 

#FAL$E,f 4{sp) 

; save result 


bra 

IS20 


IS 1 0: 

move.w 

#TRUE,14(sp) 


IS20: 

move.l 

a4.i 0(sp) 

; put return address back 


movem.l 

(sp)+,a4/d4 

; restore registers 


tst.w 

(sp)+ 

; get rid of extra two bytes 


rts 


; return 

; Name: WDHATCControl 



; Function: This routine should be called whenever a mousedown event occurs 
; within the contents of the TC Window. It handles the hilighting of the 
; proper control buttons, and sends the proper records to the WDHA. 

; Input: The mouse location (on the stack), from the event’s where field. 

; Output: None 
WDHATCControl; 
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movem.l d0-d7/a0-a6,-(sp) 

move.! WDHATCPtr,-{sp) 

; PROCEDURE SetPort (gp: GrafPort) 
_SetPort 

port 

pea 64(sp) 

_GlobalT oLocaJ 
; Was it in a control button? 

ButtonCheck: 

; call RndControl 

clr.w -(sp) 
move.J 66(sp),*{sp) 
move. I WDHATCPtr,-(sp) 
pea WhichControl 

_FindControl 
tst.w (sp)+ 

lea WhichControl, a4 

tst.! (a4) 

bee TBCheck 

; if it was in a control, call TrackControl 
clr.w -(sp) 

move.] WhichControl, -{sp) 
move. I 70(sp),-(sp) 
move. I #0,-{sp) 

^TrackControl 
tst. w (sp)+ 
beq NoChan 

; Was it the Start Button? 

move. I StartControi,d4 
Isa WhichControl, a4 

cmp.l (a4),d4 
bne InvControi 

bsr WDHATCDoTest 

bra NoChan 

; invert the control value 
InvControi: 

clr.w -(sp) 

move.} WhichControl.-(sp) 

' '_GetCtJ Value 
move.w(sp)+,d3 
not.w d3 
and.w #1,d3 
move. I WhichControl, -(sp) 
move.wd3,-(sp) 

_SetCtlVa!ue 
; Was it the Field button? 

move. I FieldControl.d4 
lea WhichControl, a4 

cmp.l (a4),d4 
bne NotField 

; Otherwise invert the Probe mike 
clr.w -(sp) 

move.l ProbeControi,-{sp) 


; WDHATCPtr on stack 

; Make sure it's the current 


; push address of point 
; convert it to the window's coords 


; returns a long 
; push point in local coords 
; WDHATCPtr on stack 
; which one? 

; pop result 

; Was it in any of them? 

; if not try the text boxes 

; returns a word 

; WhichControl now has the handle 
; starting point 

; no action proc 

; did they change the button? 

; if not then leave 


; if not then forget it 
; otherwise do the test 
; and leave 


; GetCtIVaiue returns a word 


; now value is in d3 
; invert the status 
; set button 


; if not then forget it 
: GetCtIVaiue returns a word 
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_GetCt1Value 

move.w(spK.cJ3 

rtot.w d3 

and.w #i.d3 

move.l ProbeControl,*(sp) 

mova.wd3,*{sp) 

_SetCtlValue 
bra NoChan 

; Was it the Probe button? 

NotField: 

move.l ProbeControl»d4 
lea WhichControl,a4 

cmp.l <a4),d4 
bne NoChan 

; Otherwise invert the Field mike 
clr.w -{sp} 

move.! FieldControl,-{sp) 

jGetCtIValue 

move.w(sp)+.d3 

not.w d3 

and.w #i,d3 

move. I FieldControl.-(sp) 

move.wd3,-{sp) 

_SetCtlVaiue 
bra NoChan 

THCheck: 

lea TextRects,a4 

move.w#ToneBursts,d4 
'TBCLoop: 

cmp.w #TextBoxe$,d4 
beg NoChan 

clr.w -{sp) 
move.l 66(sp),*($p) 
move.l a4,-(sp) 

_PtlnRect 
tst.w <sp)+ 
bne TBFound 

lea 8(a4),a4 

add.w #l,d4 
bra TBCLoop 

TBFound: 

; Deactivate old active box 

(ea TextHandles,a3 

lea WActive,a4 

move.w(a4),d3 

bmi TBNoneActive 

asf.w #2.d3 

move.! (a3,d3.w),-(sp) 

_TE Deactivate 
TBNoneActive 

move.wd4,(a4) 
asl.w «2,d4 
move.! (a3,d4.w),-(sp) 
TEActivate 


; now value is in d3 
; invert the status 

; turn off Probe button 


; if not then forget it 
; GetCtlValue returns a word 


; now value is in d3 
; invert the status 

; turn off Probe button 


; make room for result. 

; push the mouse point. 

; the text boxes rectangle. 

; Is the point inside. 

; If so we’ve found the right one. 

; Otherwise move to next rect. 
; increment the counter 


; Get old active one 
; * 4 for long words 


; store new active one 
; counter * 4 since long words. 
; push the TEHandle 
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move. I 64{sp},-{sp) ; pus h the point 

clr.w -<sp) ; don't extend 

move.) (a3,d4.w),-{sp) ; push the TEHandie 

_TEClick 
NoChan: 

^PenNormal 

movem.l (sp)+,d0-d7/a0-a6 

move. I (sp)+,{sp) ; get rid of param 

rts 

; Name: TCDrawBoxes 

: Function: TCDrawBoxes draws the text box portion of the TC window, 

; inciuding the headings and the text boxes themselves. 

; Input: None 
; Output: None 
TCOrawBoxes: 

movemj dO-d7/aO-aS,-(sp) 

pea ERect ; erase the input portion of the window 

_EraseRect 

lea TextRects.a4 

lea TextHandles,a3 

move.w#TCCtltnitY+1 6,d3 ; initial y coord 

OispString #10,d3,Tone burst count? 

pea 0(a4) 

^FramaRect 

pea ERect 

move. I Q(a3),-{sp) 

_TEUpdate 

add.w #20,d3 ; move down 

DispString #lO,d3,Rise time sample count? 

pea B(a4) 

_FrameRect 

pea ERect 

move.) 4(a3),*(sp) 

_TEUpdata 

add.w #20,d3 ; move down 

OispString #10, d3, Signal on sample count? 

pea 16(a4) 

_FrameRect 

pea ERect 

move. I 8{a3),-{sp) 

_TEUpdate 

add.w #20, d 3 ; move down 

OispString #lQ,d3,Fail time sample count? 

pea 24 (a4) 

_FrameRect 

pea ERect 

mcve.l I2(a3),-(sp) 

_TEUpdate 

add.w #2Q,d3 ; move down 

OispString #10, d3, Signal off sample count? 

pea 32 (a4) 

_FrameRect 

pea ERect 
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move. I 16{a3),-(sp) 

JTEUpdate 

add.w #20, d3 ; move down 

DispStnng #1 0,d3, Frequency? 

pea 40(a4) 

_FrameRec? 

pea ERect 

move.l 20(a3) f *{sp) 

_TE Update 

add.w #20,d3 ; move down 

DispStnng #10,d3,Atten re max out (dB)? 

pea 48 (a4) 

_FrameRect 

pea ERect 

move.l 24(a3),-(sp) 

_TEUpdate 

add.w #20, d3 ; move down 

DispValue #tO,d3,Power » .PDecimaJ 

pea 

_DrawString 

lea KeyBuf.aO 

move.! PFract.dQ 

move.w#0,-(SP) ‘.Select NumToString 

_Pack7 

pea KeyBuf 

^Drawstring 

movem.l (sp)+,dQ-d7/aO-a6 

rts 


; Name: WDHATCDoTest 

; Function: WDHATCDoTest fills the paramrec with the proper values 
; initiates the WDHA test by sending the paramrec out via the routine 
; wdhatest. 

: Input: None 
; Output: Nona 
WDHATCDoTest 
movem.l 


le 


d0-d7/a0-a6, 

paramrec,a4 


(sp) 


save registers 

get the gain/input select word 


generate the gain/input select word 
move.wl4{a4),d4 


T CIA: 


TCDolA: 


clr.w -(sp) 
move.l !AControl,-(sp) ; the handle 
_GetCtiVaJue 
tst.w (sp)-*- 
beq TCNolA 


; get the gain input select word in dO 
; set input attenuation bit 
GetCtIValue returns a word 


bset.l 

bra 


#INPUT,d4 

TCO A 


TCNolA: 


TCOA; 


bclr.l #INPUT,d4 

clr.w -(sp) 

move ! OAControl,-(sp) 


; set output attenuation bit 
GetCtIValue returns a word 
; the handle 


T 
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_GetCtiVaiue 
tst.w (sp) + 
beq TCNoOA 

TCDoOA: 

bset.i #OUTPUT,d4 
bra TCFieW 


TCNoOA: 

bclr.I #OUTPUT,d4 

TCField: 

clr.w *(sp) 
move.l FteldControl,-(sp) 
_GetCtlValue 
tst.w (sp)«* 
beq TCNoFieid 

TCDoField: 

bset.i #FIELD,d4 
bra TCProbe 

TCNoFieid: 

bclr.I #FIELD,d4 
TCProbe: 

clr.w -(sp) 

move.! ProbeControi,-(sp) 
_GetCtl Value 
tst.w (sp)+ 

beq TCNoProbe 

TCDoProbe: 

bset.i #PROBE,d4 
bra TCSendParams 

TCNoProbe: 

bclr.I #PROBE,d4 


: set the field mike bit 
; GetCtIValue returns a word 
; the handle 


; set the probe mike bit 
; GetCtIValue returns a word 
; the handle 


TCSendParams: 

move.wd4,14(a4) ; store the modified gain/input select word. 

lea paramrec.aG 

bsr TCCvtBoxes 

bsr wdhatest 

lea argt,a4 

move. I d6,(a4) ; put MS in argt 

pea argl 

pea arg2 

fL2X : convert MS to extended in arg2 

move. I d7,(a4) ; put SMS in argl 

pea arg 1 

pea arg3 

IL2X ; convert SMS to extended in arg3 

move.! #8388608.(a4) ; 2 A 23 

pea argt 

pea arg4 

fL2X ; convert 2*23 to extended in arg4 

pea arg4 

pea arg2 

fdivx ; divide MS by 2 A 23 to move decimal point 
pea arg4 

pea arg3 


99 



5.724.433 

147 148 

f 
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fdivx 

; divide SMS by 2 A 23 to move decimal point 

pea 

two 

pea 

arg3 

fdivx 

; SMS/2 

pea 

arg2 

pea 

&rg2 

fmulx 

; MS A 2 

pea 

arg2 

pea 

arg3 

fsubx 

; £ in arg3 

lea 

argl ,a0 

move.i 

*4342944, (aO) 

pea 

argl 

pea 

arg2 

fL2X 

; get 1 000000*1 0/log base e of 10 in arg2 

i pea 

thousand 

! pea 

arg2 

fdivx 

; get three decimal places 

pea 

thousand 

pea 

arg2 

fdivx 

; now six decimal places 

t 

pea 

arg3 

flnx 

; take log base e of E 

pea 

arg2 

pea 

arg3 

fmulx 

; now Power * {10 * log base e of E)/{tog base e of 10) in arg3 

pea 

arg3 

pea 

arg2 

fx2x 

; copy arg3 (Power) to arg2 

pea 

arg2 

ftintx 

; Truncate result 

pea 

arg2 

| pea 

arg3 

! fsubx 

; Now integer part in arg2, fractional part in arg3 

1 pea 

thousand 

pea 

arg3 

fmulx 

; get three decimal places 

pea 

thousand 

pea 

arg3 

fmulx 

; now six decimal places 

pea 

arg2 

pea 

Argl 

fx2l 

; convert decimal part to long integer 

lea 

PDecimal.aO 

move.t 

argl ,{a0) 

pea 

arg3 

pea 

argl 

fx2l 

; convert fractional part to long integer 

. iea 

PP racial 

move.i 

argl ,(at ) 

bpl 

PResult 

1st.: 

taO) 

beq 

PResult 

neg.l 

(at) 


too 
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; Print Result 
PResult: 

bsr WDHATCOraw 

; Now put the WDHA in either hearing aid state or idle state 

clr.w «(sp) ; GetCtIValue returns a word 

move. I AidControl.-(sp) ; the handle 

_GetCtlValue 

tst.w (sp)+ 

beq TCAidOff 

move.w#-1 ,dO ; go to hearing aid mode 

bra TCSetMode 

TCAidOff: 

move.w#-1 QO.dO ; go to idle mode 

TCSetMode; 

jsr scsiwr ;send mode code to WDHA 

movem.l ($p)+,dO-d7/aO-a6 ; restore registers 

rts 


; Name; TCCvtBoxes 

; Function: TCCvtBoxes actually does the work of filling the paramrec by 
; converting the text of the text boxes to their appropriate vaJues, and by 
; calculating the sine and cosine factors from the specified frequency. 

; Input: None 
; Output: None 
TCCvtBoxes: 

movem.l d0-d7/a0-a6,*(sp) 

lea TextHandles,a4 

move.w#ToneBursts,d4 
TCCBLoop: 

cmp.w #TextBoxes,d4 
beq TCCBDone 

move.wd4,d5 

; *4 for longs 
; get the text handle 

; Lock the handle 
; Dereference the handle 
; get te Length 

lea NumBuf,a6 

move.b d6,(a6) ; store the length of the string 

-ctr.l -(sp) : make room for the result, 

move. I aO t '{sp) : get the text 

JTEGetText 

move. I (sp) + .a3 ; get it in a3 

move.! a3,a0 

JHLock ; lock the handle 

move.! (aO),aO ; Dereference the handle, move src in aO 

tea NumBufT.al ; Destination is NumBufT 

move.wd6.dO ; BlockMove expects length in dO 

■ xt.l dO ; expects a long 

_BlockMove 

lea NumBuf.aO 

rnove.w#! ,-{SP) 

_Pack7 ; StringToNum puts result in dO 

lea offsets, at 


asl.w #2,d5 
move. I (a4,d5.w),a0 
JHLock 

move. I (a0),a2 
move.w60{a2),d6 


lot 
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move.b (al,d4.w),d1 ; get offset in paramrec of this entry 

sxt.w dl ; make it a word 

lea paramrec, aO ; get paramrec base address 

move.wdO.faO.d 1 .w) ; store the value, 

move.i a3,a0 ; Unlock the text handle 

^HUniock 

move.i (a4,d5.w),a0 ; Unlock the TEHandle 


_HUniock 

add.w #1,d4 ; go to next box. 

bra TCC8Loop 

TCCBDone: 

; Now compute the slope delta values which are I63$4teample count 
lea paramrec, a4 

move.i #1 6384, dO 

move.w2(a4),di ; first do the rise time slope delta 

beq RTSZero 

divu dl.dO 

move.wd0,4(a4) 
bra FTSDeita 

RTSZero: 

move.w#$7FFF,4(a4) 

FTSDeJta: 

move.! #tS384,dO 

move.wB(a4},d1 ; now do the fall time slope delta 

beq FTSZero 

divu dl.dO 

move,wd0,10fa4) 
bra TCCalcTrig 

'FTSZero: 

move.w#$7FFF,f Q(a4) 

TCCalcTrig: 

; Now send the parameters to the WOHA 
move.wFreq.dO 
lea arg1,al 

move.wdG,{ai ) 
pea arg 1 

pea arg3 ; arg3 will hold fp frequency 

F12X ; convert from integer to extended fp 


; Compute burst amplitude 


move.w 

Atten,dO 

bpl 


AttenOK 

clr.w 

dO 


AttenOK: 



neg.w 

dO 


lea 


argl ,a0 


move.w 

dO,(aO) ; store Atten from max output (dB) in argl 

pea 

argl 

;dS gain 

pea 

arg4 

;fpdB gain 

F12X 


;convert from integer to extended fp 

pea 

fp20dBe ;20 * log base 10 of e - 8.685889638 

pea 

arg4 

;fpdB gain 

fdivx 


;db/fp20dbe (result in arg4) 

pea 

fexpx 

arg4 

.base e exponential (db ratio in arg4) 


ton 


! 
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pea 

twoaxl 4 

;scale it *2E14 to convert it to fixed point 

pea 

arg4 


fmulx 



pea 

arg4 


pea 

argl 


fx2i 


{convert extended to integer 

lea 

paramrec.a4 

move.wargt ,20(a4) 

; store the burst factor 

compute sine and cosine factors 

first get 2'pi*f/fs in argS 


pea 

arg3 

{frequency 

pea 

argS 


fx2x 


;move arg3 to argS (frequency) 

pea 

twopi 

;2 pi 

pea 

arg5 


fmulx 


{multiply 2 pi times f (result in arg5) 

pea 

fpl 2277 

. {sampling frequency is 12277 Hz 

pea 

argS 


fdivx 


{divide by fs (result in argS) 

Now get cos factor 


pea 

arg5 


pea 

cosreg 


fx2x 


;move argS to cosreg 

pea 

cosreg 


fcosx 


{take cosine of cosreg 

pea 

twoexl 5 

;2*15 

pea 

cosreg 


fmulx 


{multiply by 2*15 

pea 

cosreg 


pea 

argl 


fx2i 


{convert extended to integer 

lea 

paramrec,a4 


move.wargl ,1 6(a4) 

{Store cosine factor 

Now do sine 



pea 

argS 


pea 

sinreg 


f x2x 


;move arg5 to sinreg 

pea 

sinreg 


fsinx 


{take sine of sinreg 

pea 

fpl p95 

;1 .95 

pea 

sinreg 


fmulx 


{multiply by 1.95 

pea 

twoext 4 

;2M4 

pea 

sinreg 


fmulx 


{multiply by 2*14 

pea 

sinreg 


pea 

arg2 


fx2i 


{convert extended to integer 

lea 

paramrec,a4 


move. warg2, 1 8(a4) 

.'push sine factor 


movem.l (sp)+,d0-d7/a0-a6 

rts 


WDHATC data declarations 


1 


1 03 
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WOHATCPtr: 

DC.L 

0 

; WDHATC WindowPtr 

AidControi: 

DC.L 

0 

; Hearing Aid On Control 

lAControl: 

DC.L 

0 

; Input Attenuation Control 

OAConirol: 

DC.L 

0 

; Output Attenuation 

FieldControl: 

DC.L 

0 

; Field Mike Control 

Pro decontrol: 

DC.L 

0 

; Probe Mike Control 

StartControl: 

DC.L 

0 

; Start Button Control 

; Which Text Edit Record is active? 

WActive: 


dc.w 

•1 ; -1 means none are active 

TextHandles: 





dcb.l 

TextBoxes.O 

paramrec: 



;W0HA parameter record for tesl/calibrate 


dc.w 

1 

;tone burst count 


dc.w 

0 

;nse time sample count 


dc.w 

0 

;nse time slope delta 


dc.w 

16384 

;signal on sample count 


dc.w 

0 

;fa)l time sample count 


dc.w 

0 

:fail time slope delta 


dc.w 

16384 

;signal off sample count 


dc.w 

4224 

;gain/input select word 


dc.w 

0 

;cosine factor 


dc.w 

0 

;sine factor 


dc.w 

32000 

tburst amplitude 


dc.w 

512 

;probe sample count (currently a constant) 


dc.w 

32 

;probe sample multiplier (currently a constant) 

; The following are not 

really a part of the paramrec, but currently must 

; follow it for 

the routine TCCvtBoxes to work property 

Freq: 

dc.w 

0 


Atten: dc.w 

0 



; Power 




PDecimal: 

dc.J 

0 


PFract: dc.I 

0 



offsets: 





dc.b 

0 

;tone burst count is first entry 


dc.b 

2 

;hse is second 


dc.b 

6 

;on count is fourth 


dc.b 

8 

;fall count is next 


dc.b 

t2 

;off count is seventh 


dc.b 

26 

;frequency is 14th (not really a parameter) 


dc.b 

28 

;attsn is 1 Sth (not really a parameter) 


TextRects: 

dc.w TCCtJlmtY+ToneBursts‘20 
dc.w TCCtllnitX-88 
dc.w TCCtllnitY+ToneBursts*20+20 
dc.w TCCtllnitX-20 


dc.w TCCtllnitY+RiseCount'20 
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dc.w TCCtllnitX-88 

dc.w TCCtllnitY4-RiseCount"20+20 

dc.w TCCtllnitX-20 

dc.w TCCtlJnitY+OnCounr20 
dc.w TCCtllnitX-88 
dc.w TCCHImtY+OnCount'20+20 
dc.w TCCtllnitX-20 

dc.w TCCtllnitY+FallCount*20 
dc.w TCClHnitX-88 
dc.w TCCtllnitY+FallCount*20+20 
dc.w TCCtllnitX-20 

dc.w TCCttlmtY+OffCaum*2Q 
dc.w TCCtllnitX*88 
dc.w TCCWnitY+OffCounr20+20 
dc.w TCCtllnitX-20 

dc.w TCCtllnitY+Frequency*20 
dc.w TCCtltnitX-88 
dc.w TCCtllnitY+Frequency , '2a+2Q 
dc.w TCCtllnitX-20 

dc.w TCCtllnitY+Attenuate*20 
dc.w TCCtllnitX-88 
dc.w TCCtHnitY+Attanuate*20+20 
dc.w TCClllnitX-20 


WDHATCBounds: 


DC.W 

TCInitY 

DC.W 

TCInitX 

DC.W 

TCInitY*200 

DC.W 

TCRight 


; Bounding reel for window 


ERect: 


; Bounding rectangle for part to erase 
DC.W TCCttimtY-8 
DC.W 0 

DC.W TCCtHnitY+7*TCC«FHeigm 
DC.W TCCtHnitX 


TRect: 

DC.L 0 

DC.L 0 ;For calculating various rectangles. 


TPoint: DC.L 0 


;For calculating mouse change. 


WhichControl: DC.L 0 


; A control handle, for temporary storage. 


NumBuf: 
NumBufT : 


DC.B 0 ; Buffer for number conversion {length here) 

DCaB 79,0 ; Text here 


/OS' 


KeyBuf: 


DCB.B 80,0 
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argl 

dcb.w 

8,0 

integer buffer 

arg2 

dcb.w 

8,0 

extended floating point buffer 

arg3 

dcb.w 

8,0 

extended floating point buffer 

arg4 

dcb.w 

8.0 

extended floating point buffer 

argS 

dcb.w 

8,0 

extended floating pomt buffer 

cosreg 

dcb.w 

8,0 

;room for cosine factor 

sinreg 

dcb.w 

8,0 

;room for sine factor 

xacc 

dcb.w 

8.0 

;extended accumulator 

ixreg 

dcb.w 

8,0 

,'femporary extended register 

pi 

dc.w 

$4000, $c90e, $5604, $1 893,$74bc 

twopi 

dc.w 

$4001 ,$c90e,$56Q4,$1 893,$74bc 

zero 

dc.w 

$0000. $0000,50000, $0000,$0000 

one 

dc.w 

$3fff, $8000, $0000, $0000,50000 

fpl p95 

dc.w 

$ 3fff, $1999, $9999, $9999, $999a 

two 

dc.w 

$4000, $8000, $0000, $0000, $0000 

twoexl 4 


dc.w 

$400d, $8000, $0000, $0000, $0000 

two q x t 5 


dc.w 

$4 OOe, $8000, $0000, $0000. $0000 

twoext 6 


dc.w 

$400f,$8000, $0000, $0000, $0000 

ten 

dc.w 

$4002, $a000, $0000, $0000, $0000 

hundred 

dc.w 

$4005, $c800. $0000, $0000, $0000 

thousand 

dc.w 

$4008, $/a00, $0000, $0000, $0000 

fpl 2500 


dc.w 

$400c,$c350, $0000, $0000, $0000 

fpf 2277 


dc.w 

$400c,$bfd4,$O000. $0000,50000 

fpSOdBe 


dc.w 

$4002,$8af9,Sdb22,$d0e5.$6042 
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WDHATC.hdr 

This file must be included if your program uses the 
WDHA Test/Caiibrate window. 

XREF WDHATCOpen 
XREF WOHATCOose 
XREF WOHATCShow 
XREF WDHATCHide 
XREF WDHATCOraw 
XREF WDHATCControl 
XREF WDHATCIdle 
XREF WDHATCKey 
XREF WDHATCJS 
XREF WDHATCOoTest 


101 
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; file WDGHAFC.Asm 

; This file contains two routines which read text files containing 

; numeric expressions, and download the numbers to the digital hearing 
; aid. The routine WDHAFCSet is used in the Aid 13 program to download 
; filter tap coefficients to the hearing aid. The routine WDHASetRJeParams 
; Is used to download parameters for the SSI 5 spectral shaping program. 

; The text files accessed by these routines must contain integer numbers 
; separated by any chracter which is nonnumeric and not (generally spaces, 
; tabs, or carnage returns). The text files accessed by WDHAFCSet can also 
; contain simple numeric expressions of the form A/B, where A and B are 
; integers. 

Include MacTraps.D 
Include ToolEquXD 
Include Sys£quX.D 
Include QuickEquX.O 
Include FSEqu.D 
Include MDS2:WDHADisk.hdr 
Include MDS2:WDHASCS1.hdr 

XDEF WDHAFCSet 

XDEF WDHASetFileParams 


; Constants for division 
NoDiv ECU 0 

ReadOne EQU 

DoDiv 6X1 2 


; Haven't seen a 7 

1 ; Read first operand 

; Read second operand, so don't division. 


Name: WDHAFCSet 

Function: This routine uses the SFGetFile dialog to get the name of the file 

from the user, then opens the file, converts it’s contents from text form 
to binary integer form, then downloads it to the hearing aid. 

Input: None 
Output: None 


WDHAFCSet: 


movem.l d0-d7/a0-a6,-(sp) 

; Do SFGetFile 

move,! #$00480048, -(sp) ; where 

pea Which Filter Coefficient File?’ 

move.! #0,-(sp) 

move.w#-1 ,*(sp) 

pea FT ypes 

move. I #0,-{sp} 

pea Reply 

mova.w#2, *(sp) 

_Pack3 

; Did they choose a file? 


Yes, 


prompt 

fileFilter procedure 
display all types of files 
typeList 
dlgHook 
SFRepiy 

irap to SFGetFile 


lea 

good,a3 


tst.w 

(a3) 


beq 

DoneFCSet 


open it. 

lea 

fName.at 

; file name 

bsr 

DiskOpen 


tst.w 

dl ; test ioResult 

One 

DoneFCSet 
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; Now d2 has ioRefNum 

move.w#1,dl ; read one sector 
lea myBuffer.al 

bs r Disk Read 

bsr DiskClosa 

; Now convert text buffer to words 

move.w#64,d3 ; d3 will be a counter 
move.w#NoDiv,d6 ; d6 tells if we should divide or not 


lea 

myBuffer.al 

lea 

numRec.a2 

lea 

numBuffer.aO 


; Convert from text buffer to a string 

clr.w d4 ; count length of string 

FCSLoop: 

move.b (a1)*,d5 
cmp.b #*/', d5 
bne FCSNotDiv 

move.w#ReadOne,d$ 
bra FCSDone 

FCSNotDiv 

cmp.b #‘*’,d5 

beq FCSGo 

cmp.b fr’0‘,d5 

bio FCSDone 

cmp.b #*9',d5 

bhi FCSDone 

FCSGo: 

add.w #l,d4 
move.b d5,(a0)+ 
bra FCSLoop 

FCSDone: 

lea numString.aO 

move.b d4,(a0) 
move.wtfl ,*{SP) 

_Pack7 ;StringToNum - cvt numString to word in do 

cmp.w #NoDiv,d6 ; Are we dividing? 

beq FCSDone2 

cmp.w #ReadOne,d6 ; Have we read one? 

bne FCSDone 1 

add.w #1 f d3 ; This one won't really count 

move.w#DoDiv,d6 ; Next time we’ll divide 

bra FCSDone2 

FCSDonal : 

cmp.w #0oDiv,d6 ; Should be dividing if we reach here 

bne FC$Done2 

move.wd0,d1 ; get the divisor in dl 

lea -2{a2),a2 ; back up the pointer to the first operand 

move.w(a2},d0 ; get the first operand 

ext.l dO ; extend dest of divs to long 

divs dl.dO 

move.w#NoDiv,d6 ; finished this divide 

bra FCSOone2 

FCSDone2: 


iOq 
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move.wd0,(a2)+ ;store result 

sub.w <M,d3 
bne FCLoop 

; Send the coefficients to the WDHA 
lea mjmftec.aO 

bsr SetCoefficients 

DoneFCSet: 

movem.l (sp)«-.dQ-d7/aO-a6 

rts 


; Name: WDHASetFiieParams 

; Function: This routine uses the WDHAGetFile dialog to get the file name 

from the user, then opens the file, converts it*s contents from text form 
; to binary integer form, then downloads it to the hearing aid. 

; Input: None 
: Output: None 
WDHASetFiieParams: 

movem.l dO-d7/aO-a6,-(sp) 

: Da SFGetFile 


: Yes 


move! 

#$004 80048 ,-{Sp) 

; where 

pea 

•Which Set Params File?' ; prompt 

move.l 

#0,-{sp) 

; fileFilter procedure 

move.w#-1 ,-{sp) 

; display all types of 1 

pea 

FTypes 

; typeUst 

move.l 

#o.-(sp) 

; dlgHook 

pea 

R«p)y 

; SFReply 

move.w#2.-(sp) 

; trap to SFGetFile 

_Pack3 

they choose a file? 


lea 

good,a3 


tst.w 

(a3) 


beq 

D one FileS et 


, open it. 
lea 

(Name, at 

; file name pointer 

bsr 

DiskOpen 


tst.w 

d 1 ; test 

ioResuit 

bne 

DoneFileSet 



; Now d2 has ioRefNum 

move.w#3,dl ; read three sectors 
lea myBuffer,a1 

bs r DiskRead 

bsr DiskCiose 

; Now convert text buffer to words 

move.w#320,d3 ; d3 wilt be a counter 

lea myBuffer.al 

lea numRec,a2 

FileOuterLoop: 

lea numBuffer.aO 

; Convert from text buffer to a string 

clr.w d4 ; count length of sthng 

FileLoop: 

move.b {at )+,d5 
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cmp.b 

#*0\d5 

bio 

FileDone 

cmp.b 

#'9',dS 

bhi 

FileOone 

add.w 

#1 ,d4 

move.b 

d5,(a0)+ 

bra 

File Loop 


FileDone: 

lea mjmSlnng.aO 

move.b d4,(a0) 
move.w#1 ,-{SP) 

_Pack7 ;StringToNum - cvt numString to word in dO 

move.wd0,(a2)+ ;store result 
sub.w #1,d3 

bne FileOuterLoop 

; Send the coefficients to the WDHA 


lea 


numRec,aO 

bsr 

DoneFtleSet: 


SetFileParams 

movemj 

rts 

(sp) + ,dQ-d7/aQ-a6 

Reply: 

good: dc.w 

0 


copy: dc.w 

0 


(Type: dc.w 

0 


vRefNum 

dc.w 

0 

version: 

dc.w 

0 

IName: dcb.b 

64,0 


FTypes: 

dc.t 

TEXT’ 

numString: 

dc.b 

0 ; length 

numBuffer: 

dcb.b 

63,0 ; text 


numfiec: 

myBuffer 


dcb.w 320,0 
dcb.b 1536,0 
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WDHAFC.hdf 

This file must be included if your program uses the 
Set Filter Coefficients function. 

XREF WDHAFCSet 
XREF WDHASetFileParams 
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WDHASCSl.Asm 

This fila contains routines tor sending records back and forth 
between the Mac and the WDHA via the SCSI bus interface. 


Include 

MacTraps.D 

Include 

SysEquXD 

Include 

ToolEquXD 

Include 

MOS2:WDHA.hdr 


XDEF 

SetParam 


XDEF 

SetCoefficients 


XDEF 

SetFileParams 


XDEF 

wdhatest 


XDEF 

SCSIlnterrogate 


XDEF 

SCSIWr 


XDEF 

SCSIRd 


XDEF 

SCStBTst 


;scsi bus bit assignments 


abs 

oqu 

1 

-.assert data bus 

dbs 

equ 

0 

Reassert data bus 

ack 

equ 

0 

;asssrt acknowledge line 

dck 

equ 

16 

;deasserl acknowledge line 

atn 

equ 

0 

;assert attention line 

dtn 

equ 

2 

Reassert attention line 


.;Set WDHA parameters subroutine 


calling protocol 



lea 

paramrec,aO 

:set pointer to set parameter record 

* 

jsr 

SetParam 


SetParam: 




movem 

.1 a0*a6/d0-d7.-(sp) ;save registers 


cir.w 

*(sp) 



bsr 

SCSIlnterrogate 


move.w(sp)+,dO 



beq 

@4 



cmp.w 

#-100, do 

;SS15ID 


beq 

@4 



move.! 

#8-1 ,d1 

:set loop counter 


move.w#-2,d0 

;get -2 mode code (set aid parameters) 


jsr 

scsiwr 

;s«nd mode code to WDHA 

@1 

jsr 

ScsiBTst 

;test for WDHA 


beq 

@1 

; ready 

@2 

move.w(aO)+,dO 

;get parameter 


jsr 

scsiwr 

;send parameter to WDHA 

@3 

jsr 

ScsiBTst 

;1est for WDHA. 


beq 

@3 

; ready 


dbra 

dl,@2 

;check end of loop 


move.w(aQ) + ,dO 

;get last parameter 


jsr 

scsiwr 

;send last parameter to WDHA 

@4 





movem.i ($p) + 

,a0-a6/d0*d7 ;restore registers 


rts 




1 13 
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;Set WDHA filter coefficients subroutine 
;cailing protocol 

iea corse, aO ;set pointer to array of coefficients 

; jsr SetCoefficients 

SetCoefficients: 



movem.l a0*a6/d0-d7,-{sp) ;save registers 


move.w#-4 f d0 

;get -4 mode code (set aid coefficients) 


jsr scsiwr 

;send mode code to WDHA 

@1 

jsr ScsiBTst 

;1est for WDHA 


beq 

;ready 


move.l #63, dl 

;set loop counter 

@2 

move.w(a0)+,d0 

;gat parameter 


jsr scsiwr 

;send parameter to WDHA 

@3 

jsr ScsiBTst 

;test for WDHA 


beq @3 

;ready 


sub.w #1,d1 

;check end of loop 


bne @2 



move.w(a0)+,d0 

;get last parameter 


jsr scsiwr 

;send last parameter to WDHA 


movem.l (sp)+,aO-a6/dO-d7 ;restore registers 


rts 



;Set file parameters subroutine 
;calling protocol 

; lea filerec,aO ;$et pointer to array of 320 coefficients 

; jsr SetFileParams 

SetFileParams: 



movem.l a0-a6/d0'd7,-(sp) ;save registers 


move,w#-5,dG 

;get -5 mode code (set aid coefficients) 


jsr scsiwr 

;send mode code to WDHA 

@1 

jsr ScsiBTst 

;test for WDHA 


beq @1 

;ready 


move.! #319,d1 

;set loop counter 

@2 

move.w(a0} + ,d0 

;get parameter 


jsr scsiwr 

;send parameter to WDHA 

@3 

jsr ScsiBTst 

;test for WDHA 


beq @3 

;ready 


sub.w #1,dt 

;check end of loop 


bne @2 



move.w(a0}+,d0 

;get last parameter 


jsr scsiwr 

;send last parameter to WDHA 


move. w#* 1 ,d0 

;get *1 mode code (hearing aid mode) 


jsr scsiwr 

;send mode code to WDHA 


movem.l (Sp}+ t a0-a6/d0-d7 irestora registers 


rts 



WDHA test subroutine 
calling protocol 

lea paramrec.aO ;set pointer to set parameter fecord 

jsr wdhatest 

upon exit: 

d6 has the mean sum 
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; <S7 has the square mean sum 


wdhatest: 


movem.l aQ-a€/dO-d5,-(sp) ;save registers 

move.w#-3.d0 

;get -3 mode code (test/calibrate) 

jsr scsiwr 

;send mode code to WDHA 

@1 jsr ScsiBTst 

;test for WDHA 

beq @1 

; ready 

move,! #13,d1 ;$et loop counter (do all but last) 

@2 move.w(aQ)+,dQ 

;get parameter 

jsr scsiwr 

;send parameter to WDHA 

subq.b #1,d1 


bne @2 

;check end of loop 

; read probe sample 


<§>4 jsr ScsiBTst 


beq @4 

;test for WDHA bit 

; read mean sum 


clr.l dO 


jsr scsiwr 

;write dummy to wdha 

jsr scsird 

;read high 16 bits 

mova.wd0,d6 

; store in d6 

swap d6 

;get it in high word 

clr.l dO 


jsr scsiwr 

;writa dummy to wdha 

jsr scsird 

;read low 9 bits 

move.wd0,d6 

;store in d6 

asi.w #7,d6 

; shift it left to the most sig word. 

asr.l #7.d6 

;shrft the whole thing right. 

; read the mean square sum 


clr.l dO 


jsr scsiwr 

;write dummy to wdha 

jsr scsird 

;read high 16 bits 

| move.wd0,d7 

;store in d7 

swap d7 

;get it in most sig word. 

> clr.l dO 


jsr scsiwr 

;write dummy to wdha 

jsr scsird 

;read low 9 bits 

move.wd0.d7 

;stora in d7 

asi.w #7,d7 

;shift it left to the most sig word. 

asr.l #7.d7 

;shift the whole thing right. 

| movem.l {sp}+ 

,aO-a6/dO-d5 .-restore registers 



; Name: SCSJWr 

; Function: Send the 16 bit integer in dO to the hearing aid via the SCSI bus. 
; Input: dO contains the word to write. 

; Output: None 
SCSiWr; 

movem.l dO-d3,-(SP) 

move.b #abs+dck+dtn, $58001 1 ;asserl data bus 

move, w# 1 ,d2 ;sef the 

roxr.w #1,d2 ;extend bit 

move.w#l7-1 f d2 ;set loop counter 

@1: roxl.w #1,d0 ;move in next bit 

move.wdO.dl ;copy dO 


US 
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and.w tf.dl ;mask Is bit 

move.b dl. 5580001 ;wnte to output data bus 

move.b #abs+ack+dtn,$5800l 1 ; assert acknowledge (clock into wdha) 

move.b #abs+dck+dtn, $58001 1 Reassert acknowledge (clock into wdha) 

dbra d2,<§>1 ;!oop counter 

move. w#1 000, d3 iwrite deiay 

@2 dbra d3,<8>2 

move.b #dbs+dck+dtn,$580Q1 1 ;deassert data bus and ail 

movem.l (SP)+,dO-d3 

rts 

; Name: SCSIRd 

; Function: Read a word from the SCSI bus in register dO. 

; Input: None 

: Output: dO contains the word red 
SCSIRd: movem.l d1-d3,*(SP) 

move #16-1,02 ;set loop counter 

move.b #dbs+dck+dtn, $58001 1 Reassert data bus and all 

@1: ast.w #1,d0 ;shift 

move.b $580000, dl ;raad data bus 

move.b #dbs+atn+dck,$5flOGl 1 ;assert attention (clock out wdha) 

and.w #2,d1 ;mask input bit (bit 1) 

asr.w #1.d1 ;put in position 0 

add.w dt.dO ; add bit to data 

move.b #dbs+dtn+dck, $58001 1 Reassert attention (clock out wdha) 

move.w#25Q,d3 ;de assert- assert delay 

@2 dbra d3,@2 

dbra d2,@1 ;loop counter 

movem.l (SP)+,d1-d3 

rts 

;Test SCSI read bit (Bit 1). Returns with dO » 0 or 2 
SCSIBtst: 

; If the mouse button is pressed then stop communication 

movem.l aO-al /d0-d2,-(sp) ; save registers 

clr.w *(spj 

Button 

tst.w (sp)+ 

bne StopCom 

movem.l (sp)+,aG-aT/dO-d2 

move.b #dbs+dck*dtn, $58001 1 ;deassert data bus and all 

move.b $580000, dO ;read SCSI bus 

and.w #2,d0 ;mask position 1 

rts 

; If the button is pressed during communication we set the hearing aid 
; to idle and return to the main loop. Note that extra parameters may 
; be left on the stack from the routines which cailec SCSIBtst. 

StopCom: 

move.w#-5,d0 
bar SCSIWr 

bsr SCSIWr 

movem.l (Sp)+,a0-a1/d0-d2 ; Restore registers 

clr.l (sp}+ ; Pop SCSIBtst return address 


nu> 
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bra EventLoop 
; Name: SCSI Interrogate 

; Function; Interrogate the hearing aid to determine which program it is running, 

; returning the program identifier code that the hearing aid sends back. 

; If the hearing aid does not respond within a certain timeout period, the 

; routine returns with zero as the result, 

; Input: None 

; Output: The program code (on the stack} 

;***Nots: The user should push a word for the result 
SCSIlnterrogate: 

movem.l d0-d7/a0-a6,-(sp) 

move.w#-tO,dO ;interrogate WDHA for program type 



bsr 

SCSIWr 



clr.w 

dO 



move.w#2000G,d7 


@1 

sub.w 

#1 ,d7 



beq 

@2 



jsr 

ScsiBTst 

;te$t for WDHA 


beq 

@1 

;ready 

@2 

jsr 

scsird 

;read high 16 bits into do 


move.wd0,64(sp) 



move.wa-l.dO 

;set hearing aid mode 


bsr 

SCSIWr 



movem.l (Sp)+,d0-d7/a0-a6 

rts 


li 7 
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; WOHASCSl.hdr 

XREF SetParam 
XREF SatCoofficients 
XREF SetFiloParams 
XREF SCSHnterrogata 
XREF wd ha to st 

XREF SCSIWr 
XREF SCSlRd 
XREF SCSIBTst 

PROBE ECU 9 

FELD ECU 12 

INPUT EQU 7 

OUTPUT ECU 10 


in 


T 
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;WDHADisk.asm file 
In dud a FSEqu.D 

Include MacTraps.D ; Use System and ToolBox traps 


Include 

ToolEquXD 

; Use ToolBox equates 

Include 

SysEquXD 


Include 

QuckEquX.D 


XDEF 

DiskCreate 


XD6F 

DiskRead 


XDEF 

DiskWrite 


XDEF 

DiskEject 


XDEF 

DiskOpen 


XDEF 

DiskClose 


XDEF 

DiskSetFPos 


XDEF 

DiskSetEOF 


XDEF 

DiskSetFInfo 


ioNamePtr 

equ 18 

;not included in ,d files 

ioFVersNum 

equ 26 

;not included in .d files 

ioMisc 

equ ioRefNum+4 ;not included in d files 

DiskRead: 




;assumes d 2 contains ioRefNum 

;assumes dl contains number of 512 byte sectors to read 
;assumes al points to the buffer to fill 
; returns with aO pointing to parameter block on stack 
;and with ioResult in dO 

;the number of bytes actually read is returned in d3 (long) 

moveq #ioVQEISize/2 - 1 ,d0 
@t: clr.w *{sp) 

dbra d0,@1 
move. I sp.aO 

move.wd2JoRefNum(aO) 
mulu #512, dl 
move. I d1,ioReqCount{aO} 
divu #512,d1 
move. I al .ioBuffer(aO) 

_Read 

move,! ioActCount(aO) 1 d3 
add #ioVQEiSi 2 e,SP 
rts 


OiskWrite: 

' ; assumes d2 contains ioRefNum 

;assumes dl contains number of 512 byte sectors to write 

;assumes al points to the buffer to write 

returns with ioResult in dO 

;and aO pointing to parameter block on stack 


;make room on stack for 

;for parameter block 

;set AO for file manager call 

;and to access parameters in block 
;muitiply number of sectors by 512 
;sectors required 
restore dt 


? 
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moveq 
(5)1: clr.w 

dbra 
move, l 


#ioVQEISize/2 - 1 ,d0 

*<sp) 

dO,@i 

sp.aO 


;make room on stack for 

;for parameter block 

;sat AO for file manager call 


move.wd2,ioRefNum(aO) 
mulu #512,dt 

move.) dl .ioReqCount(aO) ;blocks 
divu #5l2,dt 
move. I ai JoBuffer(aO) 

_Write 

add #ioVGElSize,SP 
rts 


;and to access parameters in block 
sectors to write • 512 • bytes 
of 512 bytes required 
; restore dl 


DiskSetFPos: 

;assumes d2 contains ioRefNum 

.assumes dl contains sector number to position at. 

;retums with ioResult in dO 

;and aO pointing to parameter block on stack 


moveq #ioVQElSizey2 * 1,d0 
@1: clr.w -(sp) 

dbra dO T @i 
move.! sp.aO 

move.wd2,ioRefNum<aO) 
move.w#1 .ioPosMode(aO) 


mulu #512, dl 
move.! dlJoPosOffset(aO) 
divu #512, dl 
_SelFPos 

add #ioVQEISize,SP 
rts 


;make room on stack for 
;for parameter block 
;set AO for file manager call 

;and to access parameters in block 
;0 at currant position 
;1 relative to beginning of media 
;3 relative to current position 

iblocks of 512 bytes required 


Disk Close: 

;assume$ d2 contains ioRefNum 
.returns with ioResult in dO 
and aO pointing to parameter block on stack 


moveq #ioVQEJSize/2 - 1 .dO 
(5)1: clr.w -(sp) 

dbra d0,{§>1 
move. I sp.aO 

move.wd2,ioRefNum(aO) 

_ciose 

add #ioVQEISize.SP 
rts 


;make room on stack for 
;for parameter block 
;set AO for file manager call 
;a nd to access parameter block 

;icRefNum in d2 from open routine 


; d3 contains the drive number to eject 
DiskEject: 
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@1: 


moveq # ioVQEISize/2 - 1,d0 

cir.w *(sp) 

dbra dO.@1 

move.l sp,aO 

move. w#-5,ioRefNum{aO) 

move.wd3,ioOrvNum(aO) 

move . w #ejectCode,csCode(aO) 

_Eject 

add #ioVQE)Size,SP 
rt s 


OiskCreate; 

;assumes al pointing to file name buffer 

;returns with aO pointing to parameter block on stack 

;d3 contains the drive number to create the file on. 


moveq 

@i: cir.w 

dbra 
move.! 


#ioVQE!SizeV2 - 1,d0 

•(sp) 

dO,@l 

sp.aO 


move.l al.ioNamePtr(aO) 
move.b #0,ioFVersNum(a0) 


move. wd3, ioVRefNum(aO) 
^Create 

add #ioVQEISize,SP 
rts 


;set AO for fi)e manager cal) 

;and to access parameter block 
put name pointer in parameter block 
version number, always use zero 
per page 11-31, inside mac 
;drive # 


OiskOpen: 

;assumes al pointed to file name buffer 

;retums with aO pointing to parameter block on stack 

;ioRefNum in d2 and ioResult in dl 

;upon return d3 contains the drive number the file was found on 


moveq 

@1: cir.w 

dbra 
” move. I 


#ioVQEISize;2 - 1,d0 
*{sp) 

dO,@l 

sp.aO 


move.l al ,ioNamaPtr(aO) 
move.b #0,ioFVersNum(a0) 


move.w#2.ioVRefNum(aO) 

_Open 

move.w#2,d3 
move.wioRefNum{aO),d2 
move.wioResult{aO),d1 
beq DOpenGood 
move.w#1 ,ioVRefNum(aO) 
Open 

move.w#1 ,d3 


;set AO for file manager call 
;and to access parameter block 
put name pointer in parameter block 
;version number, always use zero 
;per page 11-81, inside mac 
;external drive 

; external drive 

;save ioRefNum of file in d2 
;gef io result 

internal drive 

;internai drive 


121 



191 


5,724,433 


192 


move.wioRefNum(aQ),d2 .save ioRefNum of file in d2 

move.wioflesulf{a0),d1 ;get io result 

OOpenGood: 

add. I #ioVQEISize,SP 

rts 


DiskSetEOF: 

^assumes d2 contains ioRefNum 

.assumes dl contains position to position at (a long). 

;retums with ioResult in dO 

;and aO pointing to parameter block on stack 


moveq #ioVQElSize/2 - 1 ,d0 
@1: ci'r.w -(spj 

dbra d0,@1 
move.] sp.aO 

move.wd2,ioRefNum(aO) 
move.w#l .ioPosMode(aO) 


move ! dl .ioMisc(aG) 
_SetEOF 

move.wioResult{aO),dO 
add.i #ioVQEISize,$P 
rts 


.make room on stack for 
;for parameter block 
;set AO for file manager call 

;and to access parameters in block 
;Q at current position 
;1 relative to beginning of media 
;3 reiative to current position 
;blocks of 512 bytes required 

;get io result 


DiskSdtFinfo: 

;assumes al pointing to file name buffer 
; assumes d6 contains file creator 
;assumes d7 contains file type 
;d3 contains the drive number to create the file on. 
returns with aO pointing to parameter block on stack 
movem.l dO-d7/aQ-a6.-{sp} 

moveq #ioVQElSize/2 - l.dO 
@1: clr.w *{sp) 

dbra d0,@1 
move.! sp.aO 

move.f sp,a4 
move.! al .ioNamePtr(aO) 
move.b #0,ioFVersNum(a0) 

move.w d3,ioVRefNum(aO) 

_GetFilelnfo 
move. I a4,a0 
move.) d7. 32(a0) 
move.l d6,36(a0) 

_SetFilelnfo 
add.i #ioVQEiSize,SP 
movem.l ($p)*,dQ-d7/aO-a6 

rts 


;set AO for file manager cal! 

;and to access parameter block 

;put name pointer in parameter block 
.•version number, always use zero 
;per page 11-81, inside mac 
;dnve # 

;get file info 


IASL 
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WDHADisk.hdr 

This file must be included if your program uses the disk commands. 
XREF DiskCreate 
XREF Disk Read 
XREF OiskWrita 
XREF DiskEject 
XREF DiskOpen 
XREF DiskCtose 
XREF DiskSetFPos 
XREF DiskSetEOF 
XREF DiskSetFInfo 
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What is claimed is: 

1. An adaptive gain amplifier circuit comprising: 

an amplifier for receiving an input signal in the audible 
frequency range and producing an output signal; 
means for establishing a threshold level for the output 
signal; 

a comparator for producing a control signal as a function 
of the level of the output signal being greater or less 
than the threshold level; 
a gain register for storing a gain setting; 
an adder responsive to the control signal for increasing the 
gain setting up to a predetermined limit when the 
output signal falls below the threshold level and for 
decreasing the gain setting when the output signal rises 
above the threshold level; and 
a preamplifier having a preset gain for amplifying the gain 
setting to produce a gain signal; 
wherein the amplifier is responsive to the preamplifier for 
varying the gain of the amplifier as a function of the 
gain signal, 

wherein the output signal is adaptively compressed. 

2. The circuit of claim 1 wherein the adder comprises 
means for increasing the gain setting in increments having 

a first preset magnitude and for decreasing the gain 
setting in decrements having a second preset magni- 
tude. 

3. The circuit of claim 1 further comprising means for 
producing a timing sequence wherein the gain register is 
enabled in response to the timing sequence for receiving the 
gain setting from the adder during a predetermined portion 
of the timing sequence. 

4. The circuit of claim 1 wherein the adder further 
comprises a secondary register for storing a first and second 
preset magnitude and wherein the adder is responsive to the 
secondary register for increasing the gain setting in incre- 
ments corresponding to the first preset magnitude and for 
decreasing the gain setting in decrements corresponding to 
the second preset magnitude. 

5. The circuit of claim 1 further comprising means for 
clipping the adaptively compressed output signal at a pre- 
determined level and for producing an adaptively clipped 
compressed output signal. 

6. A programmable compressive gain amplifier circuit 
comprising: 

a first amplifier for receiving an input signal in the audible 
frequency range and for producing an amplified signal; 
means for establishing a threshold level for the amplified 
signal; 

a gain register for storing a gain value; 
means, responsive to the amplified signal and the thresh- 
old level, for increasing the gain value when the 
amplified signal falls below the threshold level and for 
decreasing the gain value when the amplified signal 
rises above the threshold level; 
wherein the first amplifier is responsive to the gain 
register for varying the gain of the first amplifier as a 
function of the gain value; 

a second amplifier for receiving the input signal and for 
producing an output signal; and 
means for progr ammin g the gain of the second amplifier 
as a function of the gain value, 
wherein the output signal is programmably compressed. 

7. The circuit of claim 6 wherein the increasing and 
decreasing means comprises means for increasing the gain 
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value in increments having a first preset magnitude and for 
decreasing the gain value in decrements having a second 
preset magnitude. 

8. The circuit of claim 7 wherein the increasing and 

5 decreasing means further comprises: 

a comparator for producing a control signal as a function 
of the level of die amplified signal being greater or less 
than the threshold level; and 
an adder responsive to the control signal for increasing the 

10 gain value by the first preset magnitude when the 
amplified signal falls below the threshold level and for 
decreasing the gain value by the second preset magni- 
tude when the amplified signal rises above the thresh- 
old level, wherein the first amplifier is responsive to the 
gain register for varying the gain of the first amplifier 

15 as a function of the gain value. 

9. The circuit of claim 8 wherein the increasing and 
decreasing means further comprises means for producing a 
timing sequence wherein the gain register is enabled in 
response to the timing sequence for receiving the gain value 

20 from the adder during a predetermined portion of the timing 
sequence. 

10. The circuit of claim 8 wherein the increasing and 
decreasing means further comprises a secondary register for 
storing the first and second preset magnitudes and wherein 

25 the adder is responsive to the secondary register for for 
increasing the gain value in increments corresponding to the 
first preset magnitude and for decreasing the gain value in 
decrements corresponding to the second preset magnitude. 

11. The circuit of claim 6 wherein the means for pro- 

30 graming comprises means for varying the gain of the second 

amplifier as a function of a power of the gain value. 

12. The circuit of claim 11 wherein the means for pro- 
graming further comprises a register for storing a power 
value and wherein the programing means varies the gain of 

35 the second amplifier as a function of the value derived by 
raising the gain value to the power of the stored power value. 

13. The circuit of claim 6 wherein the first and second 
amplifiers each comprise a two stage amplifier, the first stage 
having a variable gain and the second stage having a preset 

40 gain. 

14. The circuit of claim 6 further comprising means for 
clipping the programmably compressed output signal at a 
predetermined level and for producing a programmably 
clipped and compressed output signal. 

45 15. An adaptive gain amplifier circuit comprising: 

an amplifier for receiving an input signal in the audible 
frequency range and producing an output signal; 
a gain register for storing a gain value; 
a preamplifier having a preset gain for amplifying the gain 
value to produce a gain signal: 
wherein the amplifier is responsive to the preamplifier for 
varying the gain of the amplifier as a function of the 
gain signal; 

55 means for establishing a threshold level for the output 
signal; and 

means, responsive to the output signal and the threshold 
level, for increasing the gain value up to a predeter- 
mined limit when the output signal falls below the 

50 threshold level and for decreasing the gain value when 
the output signal rises above the threshold level, 
wherein the output signal is adaptively compressed. 

16. The circuit of claim 15 wherein the increasing and 
decreasing means comprises: 

65 a comparator for producing a control signal as a function 
of the level of the output signal being greater or less 
than the threshold level; and 



5 , 724.433 


197 

an adder responsive to the control signal for increasing the 
gain value when the output signal falls below the 
threshold level and for decreasing the gain value when 
the output signal rises above the threshold level 

17. The circuit of claim 16 wherein the increasing and 5 

decreasing means further comprises means for producing a 
timing sequence, said increasing and decreasing means 
being enabled in response to the timing sequence for 
increasing or decreasing the gain value during a predeter- 
mined portion of the timing sequence. 10 

18. The circuit of claim 16 wherein the increasing and 
decreasing means further comprises a secondary for storing 
a first and second preset magnitude and wherein the adder is 
responsive to said secondary register for receiving the first 
and second preset magnitudes for increasing and decreasing 15 
the gain value. 

19. The circuit of claim 15 wherein the increasing and 
decreasing means further comprises means for increasing 
the gain value in increments having a first preset magnitude 
and for decreasing the gain value in decrements having a 20 
second preset magnitude. 

20. The circuit of claim 15 further comprising means for 
dipping the output signal at a predetermined level and for 
produdng an adaptively clipped compressed output signal. 

21. An adaptive gain amplifier circuit comprising: 25 

an amplifier for receiving an input signal in the audible 

frequency range and producing an output signal; 
means for establishing a threshold level for the output 
sign 31 ; jo 

a gain register for storing a gain value; and 
means, responsive to the output signal and the threshold 
level for increasing the gain value in increments hav- 
ing a first preset magnitude when the output signal falls 
below the threshold level and for decreasing the gain 35 
value in decrements having a second preset magnitude 
when the output signal rises above the threshold level; 
wherein the gain register stores the gain value as a first 
plurality of least significant bits and as a second plu- 
rality of most significant bits; 40 

wherein the first preset magnitude comprises a number of 
bits less than or equal to a total number of bits com- 
prising the least significant bits; 
wherein the gain register outputs the most significant bits 
of the gain value to the amplifier for controlling the 45 
gain of the amplifier; and 

wherein the output signal is compressed as a function of 
the ratio of the second preset magnitude over the first 
preset magnitude to produce an adaptively compressed 50 
output signal. 

22. The circuit of claim 21 further comprising a register 
for storing the first and second preset magnitudes, the 
register having six bits of memory for storing the first preset 
magnitude and six bits of memory for storing the second 55 
preset magnitude. 

23. The circuit of claim 21 further comprising a register 
for storing the first and second preset magnitudes; wherein 
the register stores both said magnitudes in logarithmic form. 

24. The circuit of claim 23 further comprises a limiter for ^ 
limiting the adaptively compressed output signal; wherein 
the limiter clips a constant percentage of the adaptively 
compressed output signal. 

25. The circuit of claim 21 wherein the gain register stores 
the gain value in logarithmic form; and wherein the increas- 
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ing and decreasing means increases and decreases the gain 
value in constant percentage amounts. 

26. An adaptive gain amplifier circuit comprising a plu- 
rality of channels connected to a common output, each 
channel comprising: 

a filter with preset parameters for receiving an input signal 
in the audible frequency range for producing a filtered 
signal; 

a channel amplifier responsive to the filtered signal for 
producing a channel output signal; 
a channel gain register for storing a gain value; 
a channel preamplifier having a preset gain for amplifying 
the gain value to produce a gain signal; 
wherein the channel amplifier is responsive to the channel 
preamplifier for varying the gain of the channel ampli- 
fier as a function of the gain signal; 
means for establishing a channel threshold level for the 
channel output signal; and 

means, responsive to the channel output signal and the 
channel threshold level for increasing the gain value 
up to a predetermined limit when the channel output 
signal falls below the channel threshold level and for 
decreasing the gain value when the channel output 
signal rises above the channel threshold level; 
wherein the channel output signals are combined to 
produce an adaptively compressed and filtered output 
signal. 

27. An adaptive gain amplifier circuit comprising: 

a plurality of channels connected to a common output, 
each channel comprising: 

a filter with preset parameters for receiving an input signal 
in the audible frequency range and for producing a 
filtered signal; 

a channel amplifier responsive to the filtered signal for 
producing a channel output signal; 
means for establishing a channel threshold level for the 
channel output signal; 

a comparator for producing a control signal as a function 
of the level of the channel output signal being greater 
or less than the channel threshold level; 
a channel gain register for storing a gain setting; 
an adder responsive to die control signal for increasing the 
gain setting by a first preset magnitude when the 
channel output signal falls below the channel threshold 
level and for decreasing the gain setting by a second 
preset magnitude when the channel output signal rises 
above the channel threshold level; and 
a second channel gain register for storing a predetermined 
channel gain value to define an operating range for the 
channel as a function of a signal level of the input 
signal; 

wherein the channel amplifier is responsive to the gain 
register and to the second channel gain register for 
varying the gain of the channel amplifier as a function 
of the gain setting and the predetermined channel gain 
value; and 

wherein the channel output signals are combined to 
produce an adaptively compressed and filtered output 
signal. 
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